program ptbh;
uses crt;
var a,b,c: integer;
delta: real;
x1,x2,x: real;
begin
clrscr;
write('He so a: ');
readln(a);
write('He so b: ');
readln(b);
write('He so c: ');
readln(c);
delta:=sqr(b)-4*a*c;
if delta>0 then
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a)...