Впаскале вывести таблицу умножения на 5 (через массив)

Ну предположу, что в массиве хранятся результаты умножения
var a:array[0..9] of integer;
      i:integer;
begin
for i:=0 to 9 do
 a[i]:=5*i;
for i:=0 to 9 do
 writeln('5*',i,'=',a[i]);
end.