Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p02

program p02;
uses crt;
var A,B,C: real;
begin
 clrscr;
 write('Введите сторону A=');
 readln(A);
 write('Введите сторону B=');
 readln(B);
 write('Введите сторону C=');
 readln(C);
 if (A+B>C) and (A+C>B) and (C+B>A)
  then
   writeln('Треугольник существует')
  else
   writeln('Треугольник не существует');
end.