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 <= 3 DO
    j := 1;
    WHILE j <= 3 DO
    
       WRITELN('i= ', i , ' j= ', j);
          j := j + 1;

      i := i + 1;

Listing programa:

PROGRAM p08710104;
USES
  WinCrt;
VAR
  i, j : INTEGER;
BEGIN
  WRITELN('Dvije petlje');  { Dvije petlje }
  
  i := 1;
  WHILE i <= 3 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