Синформатикой, : нужно написать программы для массивов, содержавших целые числа : 1) заполнение случайными числами из диапазона от 0 до 49,вывод значений в строку; 2)заполнение целыми числами , равными удвоенному индексу элемента , вывод значения в столбик

1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.

2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.