uses crt;
var a,b,c,d: integer;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
write('nhap so c:');readln(c);
write('nhap so d:');readln(d);
if (a> b) and (a> c) and (a> d) then writeln('so lon nhat la:',a);
if (b> c) and (b> d) and (b> a) then writeln('so lon nhat la:',b);
if (c> a) and (c> b) and (c> d) then writeln('so lon nhat la:',c);
if (d> b) and (d> a) and (d> c) then writeln('so lon nhat la:',d);
if (a< b) and (a< c) and (a< d) then writeln('so nho nhat la:',a);
if (b< c) and (b< d) and (b< a) then writeln('so nho nhat la:',b);
if (c< a) and (C< b) and (c< d) then writeln('so nho nhat la:',c);
if (d< b) and (d< a) and (d< c) then writeln('so nho nhat la:',d);
readln;
end.

uses crt;
var a,b,c,d,max,min: integer;
begin
clrscr;
readln(a,b,c,d);
max:=a; min:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
if main>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
write(max,' ',min);
readln
end.