Срооочно!!!
нужно составить программу на Паскале
на квадратное уравнение!

var a,b,c:integer;x1,x2,d:real;beginwriteln ('Введите коэффициенты уравнения:');readln (a,b,c);if a=0 thenwriteln('уравнение не квадратное') elsebegin  d:=b*b-4*a*c; if d<0 thenwriteln ('уравнение не имеет действительных корней')else if d=0 thenbeginx1:=-b/(2*a);writeln('x1=x2=',x1:0:2);   end else if d>0 thenbeginx1:=(-b-sqrt(d))/(2*a);x2:=(-b+sqrt(d))/(2*a);writeln('x1=',x1:0:2,'  x2=',x2:0:2);end;end;end.