Найти произведение чисел от 6.7 до 7.9 с шагом 0.4 на языке Паскаль

program zz1;

var i, S:real; / / задаем переменные не целого типа

begin

i:=6.7; / / задаем начальное число

S:=1; / / задаем начальное значение для произведения

while i < = 7.9 do / / организуем цикл, пока следующее число не достигнет последнего числа

begin

S:=S * i; / / вычисляем произведение

i:=i + 0.4; / / получаем следующее число, увеличивая предыдущее на шаг

end;

writeln (' произведение заданных чисел = ', S:10:8); / / выводим ответ в формате десять знаков для всего числа и восемь знаков после точки

end.