8.2..Ispisati prirodne brojeve od 1 do 9.

Opis programa: Program se razlikuje od prethodnoh programa jer je krajnja vrijednost 9.

Listing programa:

PROGRAM p08211055;
{Ispisati prirodne od 1 do 9}
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  i : INTEGER;       { cjelobrojne promjenljive }
BEGIN
  WRITELN('ispis od 1 do 9');

  i := 1;                    { pocetna vrijednost kontrolne varijable }
  WHILE i <= 9 DO            { dok je i <= n ponavljaj - pocetak petlje }
      BEGIN
        Writeln('i = ', i);  { ispis kontrolne varijable}
        i := i + 1;          { kontrolna varijabla }
      END;

END.

Ispis na ekranu:

Index