Помогите, пожалуйста(Паскаль): Даны действительные положительные числа x, y, z. Выяснить,...

Question

Помогите, пожалуйста(Паскаль):
Даны действительные положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z. (вроде бы всё правильно, но что-то не получается)

Answer 1

вроде так...

 

PRogram Z1;

uses crt;

var x,a,b,c:integer;

begin

  ClrScr;

 

  readln (a);

  readln (b);

  readln (c);

 

  if (A+B) > C then

   if (A+C) > B then

    if (B+C) > A then begin

                        write ('Yes');

                        x:=x+1;

                      end;

  if x=0 then writeln ('No');

 

  readln

end.