9.3.. Napisati program sa funkcijom za odredjivanje većeg od 2 broja.

Listing programa:

PROGRAM P09311026;
USES
  WinCrt;
VAR
 a,b: Integer;

FUNCTION max(a,b:integer):integer;
BEGIN
  IF a > b THEN
    max := a
  ELSE
    max :=b;
END;

BEGIN
  writeln ('Veci od 2');
  write('a b: ');
  readln(a, b);
  writeln('Od ', a, ' i ', b , ' veci je = ', max(a,b));
END.

Ispis na ekranu:

Index