Описать процедуру Minmax(X, Y), записывает в переменную X минимальное из значений X и Y, а в переменную Y - максимальное

[kinash96]

Описать процедуру Minmax(X, Y), записывает в переменную X минимальное из значений X и Y, а в переменную Y - максимальное из этих значений (X и Y - действительные параметры, являющиеся одновременно входными и выходными). Используя четыре вызовы этой
процедуры, найти минимальное и максимальное из данных чисел A, B, C, D.
заранее спасибо)))

[evg_m]

Описать процедуру Minmax(X, Y)

procedure minmax(var x, y: real);
begin
  if x>y then 
   ........;)
end;

используя четыре вызовы этой
процедуры

var a,b,c, d: real;

minmax(a,b);
minmax(c,d);
minmax(a,c);
minmax(b,d);
writeln('min=', ???;) );
writeln('max=', ???;) );

найти минимальное и максимальное

[evg_m]

Описать процедуру Minmax(X, Y)

procedure minmax(var x, y: real);
begin
  if x>y then 
   ........
end;

используя четыре вызовы этой
процедуры

var a,b,c, d: real;

minmax(a,b);
minmax(c,d);
minmax(a,c);
minmax(b,d);
writeln('min=', ??? );
writeln('max=', ??? );

найти минимальное и максимальное

[kinash96]

Пожалуйста напиши полный код я просто только учусь заранее спасибо)))