1 задание............................

Тройки получаются с повторениями (например, 3,4,5 и 4,3,5).Можно повторения убрать.var x,y,z:integer;beginfor x:=1 to 10 do for y:=1 to 10 do  begin  z:=round(sqrt(x*x+y*y));  if x*x+y*y=z*z then writeln(x,' ',y,' ',z);  end;end.Результат:3 4 54 3 56 8 108 6 10