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
  i: Integer;
BEGIN
 i := 1;
 WHILE i <= 5 DO
   BEGIN
   Writeln('i = ', i);
     i := i + 1;
   END;
END.

Index