Информатика

Листрат

11 марта, 23:51

Есть программа по нахождению квадратного уравнения::

var a, b, c: real;

x1, x2, D: real;

begin

readln (a, b, c) ;

D : = b*b - 4*a*c;

if D<0 then

writeln ('Корней нет')

else if D=0 then begin

x1 : = - b/2/a;

writeln ('x1=x2=', x1) ;

end

else begin

x1 : = (-b-sqrt (D)) / 2/a;

x2 : = (-b+sqrt (D)) / 2/a;

writeln ('x1=', x1,' x2=', x2) ;

end;

end.

Но при запуске пишет ошибку "Встречено '.', а ожидалось '; '"

Если. в конце меняю на; то пишет: " Встречен конец файла, а ожидалось begin"

Что не так?