Readln (n);

f: =1;

for i:=1 to n

do f:=f*i;

writeln(' при n= ',n,' n!=',f)

End.

П р и м е р 2. Распечатать буквы латинского алфавита в обратном

порядке.

Program for_2;

Var

c: char;

Begin

for c:='Z'downto 'A'

Do write (c)

End.

П р и м е р 3. Найти значение выражения

(сумму S и произведение П считать в одном цикле).

Program for_3;

Var

X,S,P;integer;

Begin

S:=0; P:=1;

for X:=1 to 10

Do begin

S:=S+SQR(X);

P:=P*(1-SQR(X))/ABS(X)

End;

writeln('S=',S,'P=',P)

End.