Хисматуллина Роза, ученица 9 класса, написала программу нахождения корней квадратного уравнения на паскале

program uravnenie;

uses crt; var a,b,c,d,x1,x2,x:real; begin writeln('vvedite koefficienty'); readln (a,b,c); d:=(b*b)-4*a*c; writeln('discriminant d=',d:4:2); if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('дискриминант больше нуля поэтому уравнение имеет 2 действительных корня'); writeln('x1=',x1:4:2); writeln('x2=',x2:4:2); end; if d=0 then begin x:=(-b)/(2*a); writeln('дискриминант равен нулю поэтому уравнение имеет 1 действительный корень'); writeln('x=',x:4:2); end; if d<0 then writeln('дискриминант меньше нуля поэтому уравнение не имеет корней'); end.