помогите найти ошибку в записи программы. Перепишите программу в исправленном виде.
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

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.