8.5.. Napisati program za ispis dvocifrenih brojeva kao na slici sa dvije petlje (za svaku cifru odvojena petlja):
.

Opis programa: Indeks redova je od 1 do 9, a indeks kolona od 0 do 9.

Listing programa:

PROGRAM p08514007;
CONST
  n = 9;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j : Integer;  

BEGIN
  WRITELN('Dvocifreni brojevi');  { naslov }

  FOR i:=1 TO n DO
    BEGIN
      FOR j:=0 TO n DO
        WRITE(i, j, ' ');   { indeksi redova i kolona }
      WRITELN;
    END;
END.

Ispis na ekranu:

Index