Pascal

[Artem666]

Помогите решить задачу....Найти все такие тройки натуральных чисел, x,y,z из интервала от 1 до 20, для которых выполняется равенство: x в кврдрате +y в квадрате=z в квадрате.

 

[isqoff]

uses crt;
var x,y,z,i,j,k:integer;

BEGIN
i:=1;
while i<=20 do
begin
z:=sqr(i);
for j:=1 to 20 do
begin
x:=sqr(j);
for k:=1 to 20 do
begin
y:=sqr(k);
if z =(x+y)
then begin
z:=i;
x:=j;
y:=k;
writeln('x= ',x,'; y= ',y,'; z= ',z);
end;
end;
end;
inc(i);
end;
END.