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