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

Opis rješenja:

Listing programa:

PROGRAM p08311005;
{prvih 5 prirodnih brojeva}
USES
  WinCrt;
VAR
  i: INTEGER;
BEGIN
  WRITELN('1 do 5');
  i:=1; 
  REPEAT
    WRITELN('i=',i );
    i := i + 1;
  UNTIL i>5;
END.

Index