bilangan.pas

program bilangan;

uses
  crt;
var
  a, b, c: int;
begin
  clrscr;
  write('a: ');
  readln(a);
  write('b: ');
  readln(b);
  write('c: ');
  readln(c);

  if (a >= b) then
    if (b >= c) then
    begin
      writeln('bilangan terbesar : ', a);
      writeln('bilangan terkecil : ', c);
    end
    else
    if (a >= c) then
    begin
      writeln('bilangan terbesar : ', a);
      writeln('bilangan terkecil : ', b);
    end
    else
    begin
      writeln('bilangan terbesar : ', c);
      writeln('bilangan terkecil : ', b);
    end
  else
  if (b >= c) then
    if (a >= c) then
    begin
      writeln('bilangan terbesar : ', b);
      writeln('bilangan terkecil : ', c);
    end
    else
    begin
      writeln('bilangan terbesar : ', b);
      writeln('bilangan terkecil : ', a);
    end
  else
  begin
    writeln('bilangan terbesar : ', c);
    writeln('bilangan terkecil : ', a);
  end;
end.