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

Question

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

---

Comments

ой, до 100*

Answer 1

var i,s:integer;

Begin

s:=1;

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

writeln(s);

end.