Latihan Pemograman Dasar

program bilangan;
uses crt;
var
b1,b2,b3:integer;
ket:string;
begin
clrscr;
write('masukkan b1='); readln(b1);
write('masukkan b2='); readln(b2);
write('masukkan b3='); readln(b3);
begin
if b1>b2 then
begin
if b1>b3 then
ket:='bil1 paling besar'
else
ket:='bil3 paling besar'
end
else if b2>b3 then
ket:='b2 paling besar'
else
ket:='b3 paling besar';
end;
write('keterangan=',ket);
readln;
end.