Var a,n,i:integer;BeginWriteln('введи n');Readln(n);a:=1;For i:=1 to n do beginA:=a*i;Inc(i);End;
writeln('ответ: ');Writeln(a);End.
Var a,n,i:integer;
Begin
Writeln('введи n');
Readln(n);
a:=1;
For i:=1 to n do begin
A:=a*i;
Inc(i);
End;
writeln('ответ: ');
Writeln(a);
End.