var n,i,c:byte;
a,w,r:longint;
BEGIN
write('n= ');
readln(n);
a:=1; w:=1; r:=1;

for i:=1 to n do
a:=a*i;

c:=1;
while c<=n do begin
w:=w*c; inc(c);
end;

c:=1;
repeat
r:=r*c;
inc(c);
until c>n;

writeln('a) ',n,'!= ',a);
writeln('w) ',n,'!= ',w);
writeln('r) ',n,'!= ',r);
readln;

END.

<< Назад