program MultiplyNumbers;

var
i, result: integer;

begin
result := 1;

for i := 1 to 100 do
begin
result := result * i;
end;

writeln${}^{\prime }Theproductofnaturalnumbersfrom1to100is{:}^{\prime },result$;

readln;
end.