Помогите написать решение задачи на Pascal пожалуйста

Question

Напечатать все целые числа в диапазоне от 1 до 1600, которые представимы в виде x2+y2, но которые нельзя представить в виде xy=c2, где c изменяется от 1 до 5.

все двойки это квадраты здесь

все двойки это квадраты здесь

Анастасия Кулеева · Accepted Answer

program pr; 
var i,n,j,l:integer; 
c:real; 
begin 
n:=0; 
for i:=1 to 1600 do 
begin 
 
for l:=1 to i do 
begin 
 
for j:=1 to i do 
begin 
 
if l*l+j*j=i then 
begin 
c:=sqrt(l*j) ; 
if c*c=l*j then 
writeln(i,' '); 
end; 
end; 
 
end; 
end;

end.