Составьте программу, которая вычисляет произведение натуральных чисел от 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.