Question

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. НАЙТИ ОШИБКУ

Answer 1

Точка с запетой после нахожденя дискрименанта