var i,a:integer;
begin
a:=1;
for i:=2 to 10 do
a*=i;
write(a)
end.
Как считает программа:
a = 1*2, a = 2*3, a = 6*4, a = 24*5, a = 120*6, a = 720*7, a = 5040*8, a = 40320*9, a = 362880*10, a = 3628800
