Напишите процедуру которая находит корни уравнения ax2 + bx + c = 0.

Program n1;

var x, y, z: real;

procedure kvur (a, b, c: real) ;

var D: real;

begin

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

writeln ('x1=', (-b+sqrt (D)) / 2*a) ;

writeln ('x2=', (-b-sqrt (D)) / 2*a) ;

end;

begin

write ('a=') ;

readln (x) ;

write ('b=') ;

readln (y) ;

write ('c=') ;

readln (z) ;

kvur (x, y, z) ;

end.