Отыскать творение всех чётных чисел от 1 до 50. Написать программку,

// Пример программки на языке Паскаль.

 var
    i : integer; // объявляем переменную целочисленного типа.

    p : real;    // объявляем переменную вещественного типа.
 begin
    p := 1;    // необходимо, для того чтоб творение не приравнивалось 0.
    for i := 1 to 50 do     // начало цикла.
      begin
         if (i mod 2 = 0) then       // проверяем является ли текущее число четным.
           begin
             p := p * i;                 // считаем творенье четных чисел.
           end;
      end;
 writeln(Произведение четных чисел в спектре от 1 до 50 равно: , p); // вывод результата.
end.