7.2.. Napisati program za odredjivanje parnosti broja

Listing programa:

PROGRAM Paran;
USES
  WinCrt;
VAR
  a: Integer;
begin
  Writeln('Paran');
  Write('Broj ');
  Readln(a);
  IF a MOD 2  = 0 THEN
    Writeln('Broj je paran ')
  ELSE
    Writeln('Broj je neparan ') ;
END.

Ispis na ekranu:

Index