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

Listing programa:

program P08211008;
{Parani i neparni brojevi}
USES
  WinCrt;
VAR
  i, n: Integer;
begin
  Writeln('Parani i neparni brojevi');
  Write('Do broja ');
  Readln(n);
  
  i := 1;
  WHILE i <= n DO
    BEGIN
      IF i MOD 2  = 0 THEN
        Writeln(i, ' je paran ')
      ELSE
        Writeln(i,' je neparan ') ;
      i := i+1;
    END;
	
END.

Ispis na ekranu:

Index