Технический форум - Положительные числа x, y, z могут быть сторонами треугольника...

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Положительные числа x, y, z могут быть сторонами треугольника...

Положительные числа x, y, z могут быть сторонами треугольника, если большее из них меньше суммы двух других. Напишите функцию, которая возвращает true, если числа x, y, z могут быть сторонами треугольника, иначе возвращает false.

Код:

uses Crt;

function Fun(a,b,c:integer):boolean;

begin

     if a<(b+c)

      then Fun:=true

      else Fun:=false;

end;

var  x,y,z:integer;

begin

     ClrScr;

      repeat

         Write('x= ');

          Readln(x);

           if x<=0

            then Writeln('Neverniy vvod');

      until x>0;

      repeat

         Write('y= ');

          Readln(y);

           if y<=0

            then Writeln('Neverniy vvod');

      until y>0;

      repeat

         Write('z= ');

          Readln(z);

           if z<=0

            then Writeln('Neverniy vvod');

      until z>0;

      if (x>y) and (x>z)

       then

        if Fun(x,y,z)

         then Writeln('Mogut')

         else Writeln('Ne mogut')

       else

        if (y>x) and (y>z)

         then

          if Fun(y,x,z)

           then Writeln('Mogut')

           else Writeln('Ne mogut')

         else

          if (z>x) and (z>y)

           then

            if Fun(z,x,y)

             then Writeln('Mogut')

             else Writeln('Ne mogut');

     ReadKey;

end.