Дано натуральное число n. Среди чисел 1,2,...,n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. Определить процедуру, позволяющую распознавать полные квадраты.

uses crt;procedure Kvadr(n:longint; var f:boolean);beginif frac(sqrt(n))=0 then f:=true else f:=false;end;var i,j,n,k:longint;    fj,fk:boolean;beginclrscr;write('n=');readln(n);for i:=2 to n do for j:=1 to i div 2+1 do for k:=1 to i   do begin  Kvadr(j,fj);  Kvadr(k,fk);  if fj and fk and(j+k=i) then writeln(i,'=',j,'+',k); end;readln;end.