9.3.. Napisati program za odredjivanje najvećeg od 3 broja, korišćenjem funkcije nalaženja većeg od 2 broja.

Listing programa:

PROGRAM P09310041;
VAR
 a, b, c: Integer;

FUNCTION max(a,b:integer):integer;  {veci od 2 }
BEGIN
  IF a > b THEN
    max := a
  ELSE
    max := b;
END;

BEGIN
  writeln ('Najveci od tri broja');
  write('a b c: ');
  readln(a, b, c);
  writeln('Od ', a,', ', b, ' i ', c );
  writeln(' najveci je = ', max(max(a,b), c));
  READLN;
END.

Ispis na ekranu:

Index