Составить программу для нахождения всех натуральных решений уравнения п2+т2=к2 в интервале [1, 10] — Pascal(Паскаль)

uses crt;
var n,t,k:integer;
begin
clrscr;
for n:=1 to 10 do
for t:=n+1 to 10 do
for k:=t+1 to 10 do
if n*n+t*t=k*k then
writeln(n,' ',t,' ',k);
readln
end.