Спо информатике в паскале. создать массив из 15 элементов, заполнить его значениями и вывести на экран.

Var
a:array[1..15] of integer; i :integer;
begin
For i := 1 to 15 do
begin
a[i]:=0;
write(a[i],',');
end;
end.