7.1. Provjera vrijednosti za uslov x>y?
a) x = 2, y = 3 b) x = 3, y = 2 c) x = 2, y = 2
d) x = -2, y = -3 e) x = -3, y = 2 f) x = -2, y = -2

 Listing programa:

PROGRAM P07111008;
USES
  WinCrt;
VAR
  x, y: INTEGER;
begin
  Writeln('Uslov 1');
  Write('Dva broja');
  Readln(x, y);
  IF x > y THEN 
    x := x - 1;
  Writeln('x= ', x, '  y= ', y);
END.

Ispis na ekranu:

Index