8класс. составьте программу вычисления произведения чисел от 1 до 10 1*2*3*4 *10

Var m, i: integer;
begin
     m := 1;
     for i := 1 to 10 do
         m := m * i;
     writeln(m);
end.