Помогите найти ошибку в записи программы. Перепишите программу в исправленном виде....

Question

Помогите найти ошибку в записи программы. Перепишите программу в исправленном виде.
program exmp1
var C:char
begin
write
Real(A,B,C)
write
If a +b >c and b+c >a and a+c > b
then write ('существует.')
else write ('не существует'.)
end

Answer 1

Var
  a, b, c: real;
begin
  read(a, b, c);
  if (a + b > c) and (b + c > a) and (a + c > b)
  then write('существует.')
  else write('не существует.')
end.