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