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

Listing programa:

PROGRAM Paran;
USES
  WinCrt;
VAR
  i, n: Integer;
BEGIN
  Writeln('Parani i neparni brojevi');
  Write('Do broj ');
  Readln(n);
  FOR i := 1 TO n DO
    IF i MOD 2  = 0 THEN
      Writeln(i, ' je paran ')
    ELSE
      Writeln(i,' je neparan ') ;
  Readln;
END.