program FindMinMax;
var
  num1, num2, num3, num4, min, max: integer;
begin
  writeln('Enter four integer numbers:');
  readln(num1, num2, num3, num4);
  
  { Finding minimum }
  min := num1;
  if num2 < min then
    min := num2;
  if num3 < min then
    min := num3;
  if num4 < min then
    min := num4;
  
  { Finding maximum }
  max := num1;
  if num2 > max then
    max := num2;
  if num3 > max then
    max := num3;
  if num4 > max then
    max := num4;
  
  writeln('Minimum number is: ', min);
  writeln('Maximum number is: ', max);
end.