Вычислить произведение первых 10 натуральных чисел.Паскаль,помогите срочно!

Var i:integer;

bagin

for i:=1 to 10 do

begin

i:=i*i;

i:=i+1

end;

end.

откомпилируй код, скажи где ошибка если что