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

Программа на Паскале для проверки, является ли заданный треугольник треугольником:

program IsTriangle;
var
  a, b, c: real;
begin
  write('Введите стороны треугольника a, b, c: ');
  readln(a, b, c);
  if (a + b > c) and (a + c > b) and (b + c > a) then
    writeln('Да, это треугольник')
  else
    writeln('Нет, это не треугольник');
end.