ошибка line too long

[FCSM-95]

Помогите пожалуйста подправить программу. Выдаёт ошибку line too long и смещает всё лесенкой.

program formyla;
{раздел описаний}
var x, y, a, b:real;
begin {начало основной программы}
     {вывод заголовка программы}
      writeln(' Программа для вычисления значения y');
      writeln(' по заданной формуле');
      writeln(' Разработал студент Иванов И.');
      writeln(' Группа Э-25');
      writeln;
      writeln;
      writeln;
      writeln;
      writeln;
      writeln;
      {ввод исходных данных}
      writeln( 'Введите значение x');
      readln (x); {ввод значения с клавиатуры}
      if (7*x-5<0) or (7*x+5=1) or (x<0) then writeln ('Выражение не имеет смысла') {Проверка ОДЗ функции}
      else b:=ln(7*x+5)/ln(2); {вычисление значения}
      if (cos(sqrt(x))=0) then writeln ('Выражение не имеет смысла') {проверка ОДЗ функции}
      else a:=sin(sqrt(x))/cos(sqrt(x)); {вычисление значения}
      y:=b/a;{вычисление конечного значения}
      writeln('y=',y:6:2); {вывод данных}
      readln
      end.

[Stilet]

А ты это в чем компилируешь? В Турбопаскале?
Сдается мне что ты просто набирал текст в юникоде, в то время как компилятор его не понимайтинг. Ибо Free Pascal Compiler version 2.6.2 твою прогу норм схавал.

[FCSM-95]

Да в Турбопаскале. Текст набирал не я, возможно. А как решить теперь эту проблему?

[ZX Spectrum-128]

Не мучаться с ТП, а перейти на современный компилятор.

[Stilet]

Вот именно. Free Pascal вполне подойдет.