Question

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

Answer 1

Тройки получаются с повторениями (например, 3,4,5 и 4,3,5).
Можно повторения убрать.
var x,y,z:integer;
begin
for 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 5
4 3 5
6 8 10
8 6 10