Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)

Ничего, кроме переполнения при умножении целых и неверного ответа Вы не получите.

uses crt; var i : integer; p: integer; begin p := 1; for i := 30 to 50 do if((i mod 2) = 0) then p := p * i; writeln; writeln(' Результат: ', p); end.