Даны два числа m и n. заменить большие число на меньшее и вывести эти числа на экран.

Program ddd;
uses crt;
var
m, n, i:integer;
begin
readln(m, n);
if m>n then m:=n
else n:=m;
writeln(m, n);
readln;
end.

С =m
m=n
n=c
произойдет обмен m и n