program raf105;
var n,i,pro: integer;
begin
write('N = ');
readln(n);
pro:= 1;
for i:=1 to n do
write(i,' ');
pro:= pro * i;
end;
writeln;
writeln('Произведение: ',pro);
end.
program raf105;
var n,i,pro: integer;
begin
write('N = ');
readln(n);
pro:= 1;
for i:=1 to n do
begin
write(i,' ');
pro:= pro * i;
end;
writeln;
writeln('Произведение: ',pro);
end.
PascalABC 3.4.2