7.2.. Napisati program za odredjivanje parnosti broja

Listing programa:

PROGRAM Paran;
USES
  WinCrt;
VAR
  a: Integer;
begin
  Writeln('Provjera paranosti - Paran/neparan');   { naslov }
  Write('Broj: ');
  Readln(a);                       { ulaz - ucitavanje vrijednosti }
  IF a MOD 2  = 0 THEN             { ako je broj paran, tada }
    Writeln('Broj je paran ')      { broj paran }
  ELSE                             { inace }
    Writeln('Broj je neparan ');   { broj neparan }
	 
END.

Ispis na ekranu:

Index