O procedimento abaixo preenche uma matriz quadrada n × n com:

• −1 nos elementos abaixo da diagonal principal;
• 0 nos elementos da diagonal principal;
• 1 nos elementos acima da diagonal principal.

procedure PreencheMatriz;
var
   i, j: integer;
begin
   for i:= 1 to n do
      for j := 1 to n do
         if i > j then matriz[i,j] := ?
         else if i < j then matriz[i,j] := ?
         else matriz[i,j] := ?
end;

Os valores que devem ser respectivamente colocados no primeiro, segundo e terceiro comandos de atribuição, marcados no código com uma interrogação (?), para o preenchimento correto da matriz são: