Find all odd elements of a pascal array of integers.

var
i, n: integer; // declare variables of integer type.
arr: array [1..10] of integer; // declare an array with dimension 10.
s, s1: string; // declare variables of string type.
begin
for i: = 1 to 10 do // start of the cycle.
begin
arr [i]: = random (-20, 20); // fill the array element with a number from the range -20; twenty.
s: = s + arr [i] + ”; // write the original array in one line.
if (arr [i] mod 2 <> 0)
then s1: = s1 + arr [i] + ”; // write an array of odd elements to one line.
end;
writeln (‘Original array:’, s); // display the string.
writeln (‘Odd array elements:’, s1); // display the string.
end.