Program GGWP;
uses crt;
var a,b,c:integer;
D,X1,X2:real;
begin
clrscr;
writeln('Введите коффициент уравнения');
readln(a,b,c);
D:=b*b-4*a*c
IF D>0 THEN
begin
X1:=(-b+sqrt(D))/(2*a);
X2:=(-b-sqrt(D))/(2*a);
writeln('X1=',X1:6:2,'X2= ',X2:6:2);
end
Else writeln('нет решений');
readln;
end.

НАЙТИ ОШИБКУ