Есть программа по нахождению квадратного уравнения:: 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" Что не так?