Function

{ buat fungsi yang menentukan nilai terbesar }
{ dari 2 buah bilangan }

  USES CRT;
  VAR
	  A : interger;
	  B : interger;
	  C : interger;
  FUNCTION nilaiterbesar (na,nb:interger):interger;
	  BEGIN
		   IF na>nb THEN
			   nilaiterbesar:=na
		   ELSE
			   nilai terbear:=nb;
	  END;
  BEGIN
	  CLRSCR;
	  WRITE ('Masukan nilai A:');
	  READLN (A);
	  WRITE ('Masukan nilai B:');
	  READLN (B);
	  C:=nilaiterbesar (A,B);
	  WRITELN ('NILAI TERBESAR = ',C );
  END.