найти произведение всех натуральных чисел от 1 до 10
мой вариант, не уверена

var i,s:integer;

Begin

s:=1;

for i:=1 to 100 do s:=s*i;

writeln(s);

end.