7.2.. Naći najmanju razliku između 4 učitana broja. Poredi se razlika susjednih bojeva.

Listing programa:

PROGRAM P07211105;
VAR
  a, b, c, d, rab, rbc, rcd, min: INTEGER;
BEGIN
  Writeln(' Naci najmanju razliku ');
  Write('1. broj: ');
  Readln(a);
  Write('2. broj: ');
  Readln(b);
  Write('3. broj: ');
  Readln(c);
  Write('4. broj: ');
  Readln(d);

  rab := a - b;
  rbc := b - c;
  rcd := c - d;

  min := rab;
  IF rbc < min THEN
    min := rbc;
  IF rcd < min THEN
    min := rcd;

  Writeln('od razlika ' , rab,', ',  rbc,', ', rcd, '  najmanja je  ', min );

  READLN;
END.

Ispis na ekranu:

Index