Подскажите в чём ошибка, ругается на точку запятой перед elseprogram uravnenie; var a,b,c,d,x1,x2 : real; beginwriteln ('введите значения коэффициентов a,b,c'); readln (a,b,c); d: =sqr(b)+(4*a*c); if (d> =0) then begin x1: = ((-1)*b+sqrt(d))/2*a; x2: = ((-1)*b-sqrt(d))/2*a; writeln (x1,x2); end; else writeln ('уравнение решений не имеет')end.

interpol7772    3   20.05.2019 21:55    2