8.2.01. Napisati program za  ispis prirodnih brojeva od 1 do 5.

Opis rješenja:

Listing programa:

PROGRAM p08211005;
{prvih 5 prirodnih brojeva}
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  i: INTEGER;        { cjelobrojne promjenljive }
BEGIN
  WRITELN('1 do 5');
  
  i := 1;                    { pocetna vrijednost kontrolne varijable }
  WHILE i <= 5 DO            { dok je i <= 5 ponavljaj - pocetak petlje }
    BEGIN
      Writeln('i = ', i);    { ispis u petlji }
      i := i + 1;            { slijedeca vrijednost kontrolne varijable i }
    END;                     { kraj while petlje }
END.

Ispis na ekranu:

Index