Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен увеличенному на заданное с клавиатуры число соответствующему элементу исходного массива. Выведите на экран исходные и полученные результаты.

const            SIZE = 15;var           a, b:array[1..SIZE] of integer;           i, r, num:integer;begin           Randomize;           for i:=1 to SIZE do a[i]:= Random(100) + 1;           for i := 1 to SIZE do write(a[i], ' ');             writeln;           for i:=1 to SIZE do                   begin                           read(num);                           b[i]:= a[i] + num;                    end;            for i := 1 to SIZE do write(b[i], ' '); end.