program fact20;
const
n=20;
var
i:byte;
f:int64;
begin
f:=1;
writeln('Множитель Произведение');
for i:=1 to n do
f:=f*i;
writeln(i:5,' ',f:20);
end;
write('Итог 》 ',f);
end.
program fact20;
const
n=20;
var
i:byte;
f:int64;
begin
f:=1;
writeln('Множитель Произведение');
for i:=1 to n do
begin
f:=f*i;
writeln(i:5,' ',f:20);
end;
write('Итог 》 ',f);
end.