Question

найти произведение чисел от 1до 10,в паскале

Answer 1

var i,s:integer;

Begin

s:=1;

for i:=2 to 10 do s:=s*i;

writeln(s);

end.