Tabuada Com Vetor Dos Elementos De A Função Random

program TabuadaDosElementosDeA;
uses crt;
const n = 5;
var i, j: integer;
       A: array[1..n] of integer;
begin
  { Entrada- alimenta o vetor. }
  randomize;
  for i := 1 to n do A[i] := random(100);
 
  { Processamento }
  for i:=1 to n do
  begin
    clrscr;
    writeln('Tabuada do ', i, 'o. elemento do vetor A.');
    writeln;
    for j:=1 to 10 do writeln(A[i]:2, ' x ', j:2, ' = ', (A[i]*j):3);
    writeln;
    writeln('Pressione [Enter] para ver a proxima tabuada.');
    readln;
  end;
 
  writeln('Fim...');
  writeln;
  writeln('Pressione [Enter] para prosseguir.');
  readln;
end.