Program Pascal Menampilkan 1 Bilangan Terbesar dari 3 Bilangan yang Diinputkan menggunakan If

Program Pascal Menampilkan 1 Bilangan Terbesar dari 3 Bilangan yang Diinputkan menggunakan If

Nahhh ini adalah salah satu program pascal untuk Menampilkan 1 Bilangan Terbesar dari 3 Bilangan yang Diinputkan manggunakan If

1. Programnya

Program BilTerbesar;
uses crt;
var
   Bila,Bilb,Bilc : integer;
   Ket            : string;
begin
     clrscr;
     Writeln('Program Bilangan Terbesar');
     Write('Input Bilangan a  :');readln(Bila);
     Write('Input Bilangan b  :');readln(Bilb);
     Write('Input Bilangan c  :');readln(Bilc);

     if (Bila>Bilb) and (Bila>Bilc) then
        Writeln('Bilangan Terbesar :',Bila)
     else if (Bilb>Bila) and (Bilb>Bilc) then
        Writeln('Bilangan Terbesar :',Bilb)
     else if (Bilc>Bila) and (Bilc>Bilb) then
     Writeln('Bilangan Terbesar :',Bilc);
     readln;
     end.

2. Tampilan Program dalam Pascal

3. Hasil Program