Найти проищведение чётных чисел в диапозоне от 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.

1. Короткая современная версия // PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin   Write(Range(30,50,2).Aggregate(1.0,(p,i)->p*i)) end. Результат: 3.6439069556736E+17 2. Школьная версия // PascalABC.NET 3.1, сборка 1218 от 12.04.2016 var   i:integer;   p:real; begin   p:=1;   i:=30;   while i<=50 do begin     p:=p*i;     i:=i+2     end;   Write(p) end.