9.3.. Napisati program sa funkcijom za odredjivanje manjeg od 2 broja.

Listing programa:

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

FUNCTION min(a,b:integer):integer;
BEGIN
  IF a < b THEN
    min := a
  ELSE
    min :=b;
END;

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

Ispis na ekranu:

Index