Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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