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. найти ошибку