in bảng cửu chương

ai đó chạy chương trình giùm nha!!! chưa chạy thử nên có trùi mới mới biết được hk????
program cuuchuong;
var i,n:integer;
      a: array [1..250] of integer;
begin
writeln('nhap bang cuu chuong ban muon xem ');
readln(n);
for i:=1 to 10 do
read(a[i]);
begin
writeln( n,'*',a[i],'=',a[i]*n:4);
readln
end;
readln
end.