В Паскале написать пж

var p:string;

a,b,c,d,x1,x2:real;

begin

 p:=('корней нет');

 writeln('введите a');

 readln(a);

  writeln('введите b');

 readln(b);

  writeln('введите c');

 readln(c);

 d:=b*b-4*a*c;

 if d<0 then writeln(p) else

 begin

   x1:=(-b+sqrt(d))/(2*a);

    x2:=(-b-sqrt(d))/(2*a);

   writeln('x1=',x1,' x2=',x2);

 end;

end.

53,97291 Паскаля бро