7.1. Provjeri da li je upisani broj x paran. Ako jesti ispiši parano.

Opis programa: Naredbom IF se izvodi provjera parnosti. Ako je paran ispisuje se tekst x je parno.

 Listing programa:

PROGRAM P07111009;
USES
  WinCrt;
VAR
  x: INTEGER;
begin
  Writeln('Za parno x');
  Write('Broj ');
  Readln(x);
  IF x MOD 2 = 0 THEN 
    Writeln('x= ', x, ' je parno');
END.

Ispis na ekranu:

Index