Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
ЧАСТЫЕ ОБНОВЛЕНИЕ, СПЕЦИАЛЬНЫЕ ЭФФЕКТЫ,МОЩНЫЕ ИНСТРУМЕНТЫ,БЕЗЛИМИТНАЯ ИСТОРИЯ,БЕСПЛАТНОСТЬ
<span>размер, тип, количество файлов - это зависит от почтового сервера, с которым работаете</span>
Var a,b,c:integer;
begin
readln(a,b);
c:=<span>(a+b)/2;
</span>writeln(c);
end.