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

Var
i:integer;
a:array [1..15] of integer;

begin
for i:=1 to 15 do begin
a [i]:=Random (5,20);
end;
write (Исходный массив );
for i:=1 to 15 do begin
write (a [i]);
write ( );
end;
for i:=1 to 15 do begin
if (a [i]lt;10) then
inc (a [i]);
end;
writeln ( );
write(Преобразованный массив );
for i:=1 to 15 do begin
write (a [i]);
write ( );
end;
end.