Estadísticas del PDF: pack código 2

16. Realizar un programa que obtenga el producto de los primeros seis números
naturales

program numero16;

uses crt;

var
producto, i: longint;

begin
clrscr;
producto:=1;
i:=1;
for i:=1 to 6 do
begin
producto:=producto*i;
end;
writeln('*****************************************');
writeln('El producto de los seis primeros números naturales es ', producto);
writeln('*****************************************');
repeat un...