8.3.. Napisati program da ispisuje u prvo redu crtice umjesto imena i na kraju ispisuju ime a zatim u svakom narednom po jedno ime više.

--- --- IME
--- IME IME
IME IME IME

Opis programa: Petljom j := 1; REPEAT j <= 3-i se ispisuju crtice a petlja k := 1; REPEAT k <= i ispisuje IME.

Listing programa:

PROGRAM p08314003;
USES
  WinCrt;
VAR
  i, j, k: INTEGER;
BEGIN
  i := 1;
  REPEAT
    j := 1;
    IF i-j < 3-1  THEN 
      REPEAT
        WRITE('--- ');
        j := j + 1;
      UNTIL j > 3 - i;
    k := 1;
    REPEAT
      WRITE('IME ');
      k := k + 1;
    UNTIL k > i;
    WRITELN;
    i := i + 1;
  UNTIL i > 3;
END.

Ispis na ekranu:

Index