D, x1, x2: real;
Begin
Writeln (‘Введите числа a, b и с’);
Readln (a,b,c);
D:=sqr(b)-4*a*c;
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln ( ‘x1=’,x1;1,
‘x2=’,x2);Readkey;
End.