7.2.. Učitati dva broja. Treba od većeg učitanog broja oduzeti manji i rezultat ispisati na ekran.

Listing programa:

PROGRAM P07211099;
VAR
   a, b : INTEGER;
BEGIN
  Writeln(' od veceg oduzeti manji  ');
  Write('1. broj: ');
  Readln(a);
  Write('2. broj: ');
  Readln(b);

    IF a > b THEN
      Writeln('a - b', a - b)
    ELSE
      Writeln('b - a', b - a);

  READLN;
END.

Ispis na ekranu:

Index