8.2.. Ispisati prirodne brojeve od 1 do 17.

Listing programa:

PROGRAM p08211034;
{prvih 17 prirodnih brojeva}
VAR                  { deklarisanje promjenljivih }
  i: INTEGER;        { cjelobrojne promjenljive }
BEGIN
  WRITELN('1 DO 17');

  i := 1;               { pocetna vrijednost kontrolne varijable }
  WHILE i <= 17 DO      { dok je i <= 17 ponavljaj - pocetak petlje }
    BEGIN
    Writeln('i = ', i); { ispis u petlji }
      i := i + 1;       { slijedeca vrijednost kontrolne varijable i }
    END;                { kraj while petlje }
   
  READLN;
END.

Ispis na ekranu:

Index