Составьте программку, которая по трем введенным вами числам определит является ли

program raf105;

var a,b,c:integer;

abc: boolean;

begin

write('Введите длины трёх сторон через пробел: ');

readln(a,b,c);

if (agt;b) and (agt;c)

 then if a**2=b**2+c**2

   then abc:=true;

if (bgt;a) and (bgt;c)

 then if b**2=a**2+c**2

   then abc:=true;

if (cgt;b) and (cgt;a)

 then if c**2=b**2+a**2

   then abc:=true;

if abc=true

 then writeln('Это прямоугольный треугольник')

 else writeln('Это не прямоугольный треугольник')

end.

Программка написана на языке PascalABC.NET