Составьте программку, которая вычисляет произведение естественных чисел от 5 до 10

var a, i : integer; \\ где a это определённое натуральное число в цикле (вначале одинаково 1), а i счётчик.
begin
cls;
a := 1;
for i := 5 to 10 do a := a * i;
writeln (Произведение всех естественных чисел от 5 до 10 воспринимает значение, одинаковое , a, .);
end.