program abc;
var a,b,c,d,x1,x2,d1,mn:real;
begin
writeln('Введите a b c');
readln(a,b,c);
writeln('a=',a,' b=',b,' c=',c);
d:=sqr(b)-4*a*c;
if d<0 then
writeln('D > 0 Корней нет')
else begin
d:=sqrt(d);
writeln('D=',sqr(b),'-4','*',a,'*',c,'=',d:3:2);
x1:=(-b+d)/(2*a);
writeln('x1=','',-b,'+',d:3:2,'/',' 2*',a,'=',x1:3:2);
x2:=(-b-d)/(2*a);
writeln('x2=','',-b,'-',d:3:2,'/',' 2*',a,'=',x2:3:2);
writeln('x1=',x1:3:2);
writeln('x2=',x2:3:2);
writeln('Разложить на множетели? 1 - да. 2 - нет');
readln(mn);
if mn=1
then writeln('(x-',x1:3:2,')(x-(',x2:3:2,'))')
else if mn=2 then
writeln('Вас понял :D');
end;
end.