Задача:

Дано n среди чисел от 1 до n найти числа которые можно представить
в виде суммы квадратов двух натуральных чисел

Решение:

program primer;
uses CRT;
var n, i,l,m,d, f: integer;
begin
textcolor (4); writeln ('vvedite n');
readln (n); writeln ('4isla');
for f:=1 to n do
begin
for i:=1 to n do
begin
l:=f-sqr(i);
for m:=i to l do
begin
d:=sqr(m);
if d=l then write (' ', f);
end; end; end;
readkey;
end.