O exemplo abaixo se trata de uma tabela, onde são inseridas e exibidas 4 notas de 8 alunos.

program NOTA_ALUNO;
var
notas: array [1..8, 1..4] of real;
i,j: integer;
BEGIN
writeln(‘Leitura e aporesentação de notas’);
writeln;
for i:=1 to 8 do Begin
writeln;
writeln(‘Entre as notas do ‘, i:2, ‘o. aluno’);
for j:=1 to 4 do begin
writeln(‘Nota ‘, j:2, ‘: ‘);
readln(notas[i,j]);
end;
end;
writeln;
for i:=1 to 8 do Begin
write(‘As notas do aluno ‘, i:2, ‘são:  ‘);
for j:=1 to 4 do Begin
write(notas[i,j]:5:2, ‘  ‘);
writeln;
end;
end;
writeln;
writeln(‘Tecle <enter> para encerrar: ‘); readln;
END.