Создать подпрограмму Minmax(A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B - максимальное из этих значен
Язык Pascal

Это же подпрограмма. После нее запишите следующие:

beginread(a, b);writeln(a, ' ', b);

end.

Прошу прощения

beginread(a, b);minmax(a, b);writeln(a, ' ', b);end.

procedure Minmax(var a, b: integer);var min, max: integer;begin   if a < b then min := a else min := b;  if a > b then max := a else max := b;  a := min;  b := max;end;