Программирование на Pascal

begin
var mas:=ArrRandomInteger(15,-4,12).println(' ');
mas.Where(x->(x mod 2<> 0)).Aggregate((x,i)->x*i).println;
end.

const
n=15;
type
TArray = array[1..n] of integer;
var
a:TArray;
i:integer;
p: longint;
begin
p:=1;
for i:=1 to n do
begin
a[i] := Random(17)-4;
if odd(a[i]) then
p:=p*a[i];
writeln(a[i]);
end;
writeln(p);
end.

13; 9; 9; 6; 8; 9; 5; 15; 13; 5; 14; 11; 6; 5; 6
proizv ne4etn 4isel = 2541020625
------------------------
13; -5; -5; 13; -4; 8; 12; 4; -2; 7; 8; -5; 7; -3; -3
proizv ne4etn 4isel = -9316125
------------------------
-5; 12; 11; 8; 5; 2; 9; 4; 8; -5; 8; 3; 9; -4; 6
proizv ne4etn 4isel = 334125
------------------------
2; 15; 10; 5; 9; 11; 6; 9; -2; 13; 1; -4; -4; 13; 10
proizv ne4etn 4isel = 11293425
------------------------
13; 4; -1; 10; 2; 12; -5; 14; -3; 9; -2; -3; 7; 10; -1
proizv ne4etn 4isel = -36855
------------------------
12; -2; 9; 13; -4; -5; -4; 3; 11; -5; 13; -2; 9; -5; 5
proizv ne4etn 4isel = -282335625
------------------------
4; 2; 13; 7; 13; 13; -4; -3; 11; 6; 6; 10; 10; 5; 13
proizv ne4etn 4isel = -32987955
------------------------
1; 2; -3; 3; 7; -5; 5; 9; 12; 3; 10; 15; 3; 12; 9
proizv ne4etn 4isel = 17222625
------------------------
11; -4; -3; 8; 2; 5; 10; 3; 4; 13; 6; 9; 9; 5; -5
proizv ne4etn 4isel = 13030875
------------------------
9; 5; 1; -4; 7; 12; -5; 4; 2; 14; 11; -3; 1; 11; -2
proizv ne4etn 4isel = 571725
------------------------
-5; 4; 7; 4; 15; 11; 14; 3; 7; 8; 1; 6; 13; 8; 7
proizv ne4etn 4isel = -11036025
------------------------
-1; 8; 3; 4; 2; 12; 6; -2; 11; 5; -4; 6; 9; 13; 4
proizv ne4etn 4isel = -19305
------------------------
-3; -1; 1; 5; -3; 12; 5; -2; 15; 11; 9; 9; -5; 14; -3
proizv ne4etn 4isel = -45106875
------------------------
-5; 13; 9; 3; -4; 11; 7; 11; 6; 2; -3; -1; 2; 11; 4
proizv ne4etn 4isel = -49054005
------------------------
2; 9; 2; 2; 13; 5; -3; 9; 14; 9; 12; 2; 9; 8; 8
proizv ne4etn 4isel = -1279395
------------------------
8; 3; 5; 11; -3; -2; 3; -3; -3; 6; 13; -1; 13; 11; 8
proizv ne4etn 4isel = 24845535
------------------------
-4; -4; 1; 4; -1; 3; 12; 7; -3; 2; 8; 10; -4; 4; 7
proizv ne4etn 4isel = 441
------------------------
7; 6; -2; 12; 9; 6; 7; 11; 6; -2; 4; 1; -3; 2; 3
proizv ne4etn 4isel = -43659
------------------------
4; 15; 7; 7; 1; 6; -1; 10; 1; 2; 13; 9; 13; 6; 9
proizv ne4etn 4isel = -10061415
------------------------
4; 10; 11; -3; -5; -5; -3; 4; 2; 15; 9; 15; 15; -2; 1
proizv ne4etn 4isel = 75178125
------------------------
-2; 8; 10; 9; -2; 3; -5; -2; 10; -1; -5; 4; 1; -3; 5
proizv ne4etn 4isel = 10125
------------------------
10; 6; 11; -5; 13; -1; 14; 15; 4; 10; 4; 12; 12; 12; -3
proizv ne4etn 4isel = -32175
------------------------
1; 12; 12; -1; -3; -3; 8; -5; 6; 2; 15; 15; 12; 3; 7
proizv ne4etn 4isel = 212625
------------------------
9; 5; 15; 2; 12; -3; 10; 12; -5; -1; 1; -5; -2; 7; 9
proizv ne4etn 4isel = 3189375
------------------------