8.1. Ispis parnih i neparnih brojeva od 1 do n (test parnosti i neparnosti).

Listing programa:

PROGRAM P08111008;
USES
  WinCrt;
VAR                       { deklarisanje promjenljivih }
  i, n : Integer;         { cjelobrojne promjenljive }
BEGIN
  Writeln('Parani i neparni brojevi');
  Write('Do broja ');
  Readln(n);
  
  FOR i := 1 TO n DO               { ponavljaj za i=1 do 5 - pocetak for petlje }
    IF i MOD 2  = 0 THEN           { ako je i djeljivo sa 2 - parnoparno tada izvedi }
      Writeln(i, ' je paran ')     { ispis izabranog }
    ELSE	                       { inace }
      Writeln(i,' je neparan ') ;  { ispis izabranog }
	  
END.

Ispis na ekranu:

Index