8.6.. Ispisati brojeve kao na slici:

Opis programa: Ispis se izvodi sa dvije REPEAT naredbe. Vanjska petlja mijenja vrijednosti od 1 do 2

  WHILE i <= 2 DO
    j := 1;
    WHILE j <= 3 DO
    
       WRITELN('i= ', i , ' j= ', j);
          j := j + 1;

      i := i + 1;

Listing programa:

PROGRAM p08610103;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j : Integer;

BEGIN
  WRITELN('Trougao');  { naslov }
  
  i := 1;
  WHILE i <= 2 DO
    BEGIN
      j := 1;
      WHILE j <= 3 DO
        BEGIN
          WRITELN('i= ', i , ' j= ', j);
          j := j + 1;
        END;
      WRITELN;
      i := i + 1;
    END;
END.

Ispis na ekranu:

Index