7.1.. Provjeri da li je generisani jednocifren broj paran. Ako jeste ispiši paran.

Opis programa: Logički izraz je (a MOD 2) = 0.

 Listing programa:

PROGRAM P07111037;
VAR
  a : INTEGER;
begin
  Write('Broj ');
  Readln(a);

  a := TRUNC(( 9 - 1 ) * RANDOM) + 1;

  IF a MOD 2 = 0 THEN
    Writeln('Paran ' );

  READLN;
END.

Ispis na ekranu:

Index