Не пойму, в чем дело?

Question

[Анатолий Кулишов]

Есть задача:



Вот попытка реализовать все это:

program ex_ 1;
uses win crt;

var
  x, a, b: real;
begin
  writeln('Введите a и b');
  read('a, b');
  x := ((b * b / (a * a * a – a * b * b)) + 1 / (a + b)) * ((a * a * a * a + 2 * a * a * a * b + a * a * b * b) / (a * a * a * a * b + a * b * b * b * b));
  writeln('при a= ', a: 4: 3, 'при b= ', b: 4: 3);
  write;
  writeln(x: 4: 3);
end.

Но получаем: Fatal: Syntax error, ";" expected but "ordinal const" found
Может кто-нибудь подсказать в чем же дело ?(

Answer 1

[Hemul GM]

1. program ex_ 1; - откуда взялся пробел?
2. uses win crt; - откуда взялся пробел?
3. uses win crt; - здесь вообще это не нужно
4. read('a, b'); - зачем тут кавычки?
5. В строке x := ... у вас левый символ, который похож на знак минус, но на самом деле совсем не минус (там дефис). Просто перепечатай его (символ) вручную. И в следующий раз пиши код сам, а не через распознавание текста