Помогите написать код программы в Pascal для задачи:дано натуральное число n среди чисел 1,2 ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел.Заранее огромное спасибо!!

vari,n:integer;res :string;function f(i2:integer;var s:string):boolean;var j,l:integer;beginfor j:=1 to i2 dofor l:=1 to i2 dobeginif j*j+l*l=i2 thenbeginresult:=true;s:=inttostr(i2)+'='+inttostr(j)+'^2+'+inttostr(l)+'^2';end;end;end;beginwriteln('Vvedite N');Readln(n);for i:=1 to n dobeginif f(i,res) then writeln(res);end;Readln;end.