{Описать процедуру нахождения минимального из двух чисел. 
Используя два вызова этой процедуры найти минимальное четырех чисел. }
uses  crt;
var a,b,c,d,m1,m2,m3:real;
 procedure min(k, n: real; var m:real);
  begin
   if k<n then m:=k else m:=n;
  end;
begin
  clrscr;
  Writeln('Введите четыре числа');
  readln(a,b,c,d);
  min(a,b,m1);
  min(c,d,m2);
  min(m1,m2,m3);
  writeln('Наименьшее из чисел=',m3);
end.