Ну вот первая с тремя вариантами цикла:
Код:
Var
a,i:Integer;
R:Real;
Begin
R:=1;
Write('a= ');
Readln(a);
for i:=0 to a-1 do R:=R/(a-i);
Writeln('Result= ',R);
i:=0;
R:=1;
While i<a do
begin
Inc(i);
R:=R/i;
end;
Writeln('Result= ',R);
i:=0;
R:=1;
Repeat
Inc(i);
R:=R/i;
Until i>a-1;
Writeln('Result= ',R);
Readln
End.