SCJ2 No 9

program soal9;
uses crt;
var angka1,angka2,angka3,gede:integer;

function terbesar:integer;
begin
        if ((angka1>angka2) and (angka1>angka3)) then
        gede:=angka1
        else
                if(angka2>angka3) then
                gede:=angka2
                else
                gede:=angka3;
end;

begin
        clrscr;
        write('Angka 1:');
        read(angka1);
        write('Angka 2:');
        read(angka2);
        write('Angka 3:');
        read(angka3);
        writeln('Angka terbesar adalah: ',terbesar);
        readkey;
end.