Отыскать творение чисел 2, 4 , 6, 8, 10 Дано: i=2

program zzz1;

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

begin

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

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

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

begin

S:= S *  i; // вычисляем творение, умножая каждое последующее число из спектра на творение

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

end;

writeln ( произведение заданных чисел = , S); // выводим ответ

end.