9.3.. Napisati program sa funkcijom za odredjivanje najvećeg od 3 broja.

Listing programa:

PROGRAM P09311023;
USES
  WinCrt;
VAR
 a, b, c: Integer;

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

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

Ispis na ekranu:

Index