даны три натуральных числа напишите программу определяющую

Ответ от Jurii[гуру]
var a, b, c : Word;
begin
Write('Введите три натуральных числа: '); ReadLn(a, b, c);
if (a = 0) or (b = 0) or (c = 0) then begin WriteLn('Натуральное число больше 0!'); Halt; end;
if a > b then begin a := a + b; b := a - b; a := a - b; end;
if b > c then begin b := b + c; c := b - c; b := b - c; end;
if a > b then begin a := a + b; b := a - b; a := a - b; end;
if a+b < c then WriteLn('Такого треугольника не существует. ')
else if a+b = c then WriteLn('Треугольник вырожден в прямую. ')
else if a*a+b*b = c*c then WriteLn('Прямоугольный треугольник. ')
else if a*a+b*b < c*c then WriteLn('Тупоугольный треугольник. ')
else WriteLn('Остроугольный треугольник. ')
end.