Сформировать массив из 15 случайных чисел, принадлежащих промежутку от 5 до 20, а затем преобразовать, увеличивая на 1 все элементы, меньшие 10. Распечатать исходный и преобразованный массивы.

var i:integer;a:array [1..15] of integer;beginfor i:=1 to 15 do begina [i]:=Random (5,20);end;write ('Исходный массив ');for i:=1 to 15 do beginwrite (a [i]);write (' ');end;for i:=1 to 15 do beginif (a [i]<10) theninc (a [i]);end;writeln (' ');write('Преобразованный массив ');for i:=1 to 15 do beginwrite (a [i]);write (' ');end;end.