Напишите пожалуйста программки

//Во всех трех задачках вывел массив на экран, чтобы был виден результат, но если это не необходимо, то уберите заключительный цикл for.

//Константы "х" и "у" - это спектр генерации числа

//Язык Pascal

---------------------------------

1 задачка:

Program Test2;

const Size = 8; x = 1; y = 100;

Var i: integer; Arr: array[1..Size] of integer;

Begin

Randomize;

for i := 1 to Size do
Arr[i] := Random(x, y);

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);

End.

---------------------------------

2 задачка:

Program Test2;

const Size = 8; x = 1; y = 100;

Var i: integer; Arr: array[1..Size] of integer;

Begin

Randomize;

for i := 1 to Size do
begin
while Arr[i] mod 2 = 0 do
Arr[i] := Random(x, y);
end;

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);

End.

---------------------------------

3 задачка:

Program Test3;

const Size = 8;

Var i: integer; Arr: array[1..Size] of integer;

Begin

for i := 1 to Size do
begin
Write('Введите ', i, ' элемент массива: ');
Readln(Arr[i]);
end;

Writeln();

for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);

End.