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

Opis rješenja:

Listing programa:

PROGRAM p08311005;
{prvih 5 prirodnih brojeva}
VAR                   { deklarisanje promjenljivih } 
  i: INTEGER;         { cjelobrojne promjenljive }
BEGIN
  WRITELN('1 do 5');
  
  i := 1;                 { pocetna vrijednost kontrolne varijable }
  REPEAT                  { pocetak repeat petlje - radi/ponavljaj }
    WRITELN('i=',i );     { ispis u petlji }
    i := i + 1;           { slijedeca vrijednost kontrolne varijable i }
  UNTIL i > 5;            { ponavljaj sve dok nebude i > 5 - kraj repeat petlje }
  
  READLN;
END.

Ispis na ekranu:

Index