Дан массив из 10 частей написать программку увеличивающую все элементы на

program zz1;
var mas:array[1..10] of integer;
i,p,max:integer;
begin
for i:=1 to 10 do //получаем исходный массив случайным образом от 1 до 20
mas[i]:=random(20)+1;
for i:=1 to 10 do
write(mas[i]:5); //выводим полученный массив на экран
writeln; //перебегаем на другую строку для вывода
for i:=1 to 10 do
mas[i]:=5+mas[i]; //добавляем к числу из массива 5 и записываем полученное число на то же место
for i:=1 to 10 do
write(mas[i]:5) //выводим полученный массив(:5 это пять позиций для 1-го числа)
end.