uses crt;
var a,i,max,min:integer;
begin
clrscr;
max:=-32768;
min:=32767;
for i:=1 to 4 do
begin
 read(a);
 if a<min then min:=a;
 if a>max then max:=a;
end;
write(min,' ',max);
readln;
readln;
end.

program find_min_max;
var
  a, b, c, d, min, max: integer;
begin
  write('Enter four integers: ');
  readln(a, b, c, d);

  min := a;
  max := a;

  if b < min then
    min := b;
  if c < min then
    min := c;
  if d < min then
    min := d;

  if b > max then
    max := b;
  if c > max then
    max := c;
  if d > max then
    max := d;

  writeln('The minimum value is ', min);
  writeln('The maximum value is ', max);
end.