Напишите программу которая заполняет массив а[1 ... 10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с четными значениями

var

i : integer; / / объявляем переменные целочисленного типа.

arr: array [1 ... 10] of integer; / / объявляем массив.

s, s1 : string; / / объявляем переменные строкового типа.

begin

for i : = 1 to 10 do / / начало цикла.

begin

arr[i] : = random (1, 20); / / заполняем массив случайными числами из диапазона (1, 20);.

s : = s + arr[i] + ' '; / / записываем исходный массив в строку.

if (arr[i] mod 2 = 0) then / / проверяем является текущий элемент массива четным.

s1 : = s1 + arr[i] + ' '; / / записываем четные элементы массива в строку.

end;

writeln ('Исходный массив: ', s); / / вывод на экран исходного массива.

writeln ('Элементы исходного массива с четными значениями: ', s1); / / вывод четных значений.

end.