Программа которая выводит произведение чисел от 5 до 10?

Решаю на Pascal

Program umn;

var

a,b,c,d,e,f,g: integer;

begin
a:= 5;
b:= 6;
c:= 7;
d:= 8;
e:= 9;
f:= 10;
g:= a*b*c*d*e*f;
writeln('Произедение чисел от 5 до 10 = ',g);
end.