Натуральные числа(delphi)

[Trice]

Определить функцию, которая возвращает натуральное число, если аргумент функции является квадратом этого числа и ноль в противном случае.
Составьте программу, которая находит все натуральные числа, меньшие чем N, для которых выполняется соотношение a2 + b2 = c2.
Решить нужно в консоле.

[Trice]

или хотябы помогите зделать чтобы двойной факториал от н1 до н2 выводился вот так(числа случайные):
3!!=1*2=2
4!!=1*2*4=8
6!!=1*2*4*6=48
8!!=1*2*4*6*8=384
10!!=1*2*4*6*8*10=3840
12!!=1*2*4*6*8*10*12=46080
У меня не получилось
f:=1;
for i:=n to k do
if(i mod 2 = 0) then
begin
write(i,'!=1');
f:=f*i;
writeln('*',i,'=',f);

[MoBLer]

Вот 3

var
a,c,m:integer;
begin
c:=2; m:=1;
readln(a);
write(a,'!!=1*');
while c<=a do
begin
write(c,'*');
m:=m*c;
c:=c+2;
end;
write(c,'=',m);
readln
end.

1

function m(a:integer):integer;
  begin
  if frac(sqrt(a)) =0 then m:=trunc(sqrt(a)) else m:=0;
  end;