Пифагоровыми называются тройки натуральных чисел  a, b, с , удовлетворяющие условию:  a2 + b2 = c2 . Например, пифагоровой является тройка чисел 6, 8, 10. Найдите все тройки пифагоровых чисел, не превышающих 25 — Pascal(Паскаль)

uses crt;
var a,b,c:longint;
begin
clrscr;
for a:=1 to 25 do
for b:=a+1 to 25 do
 begin
  c:=a*a+b*b;
  if frac(sqrt(c))=0 then writeln(a:5,b:5,round(sqrt(c)):5);
 end;
readln
end.

program pif(input,output);
var n:integer;
procedure write_pif(n:integer);
var i,j,k:integer;
begin
  for i:=1 to n-2 do
    for j:=i to n-1 do
      for k:=j to n do begin
          if sqr(i)+sqr(j)=sqr(k) then begin
            write(i,' ',j,' ',k,' ');
            writeln;
          end;
      end;
  end;
 
begin
     read(n);
     write_pif(n);
     readln;
     readln;
end.