8.5.. Napisati program da ispisuje u prvom redu jedno ime a zatim u svakom narednom po jedno ime više.

Opis programa: Na slici je prikazan odnos redova i kolona.

Slika 1. Glavna dijagonala i=j

Listing programa:

PROGRAM p08514002;
USES
  WinCrt;
CONST
  n = 3;         { broj redova }
VAR              { deklarisanje promjenljivih }
  i, j : Integer;

BEGIN
  WRITELN('Ispis IME');  { naslov }

  FOR i:=1 TO n DO
    BEGIN
      FOR j:=1 TO n DO
          IF i >= j THEN      { ispod glavne dijagonale? }
            WRITE('IME ');    { tekst }
      WRITELN;
    END;
END.

Ispis na ekranu:

Index