Решение №1
var x,y:integer;
begin
readln(x,y);
if x> y then begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(x,' ',y);
end.
Тестовое решение:
8 5
5 8
Решение №2
На PascalABC.Net можно сделать проще:
var x,y:integer;
begin
readln(x,y);
if x>y then begin swap(x,y); println(x,y); end;
end.
Ответ:84, это правильно навернок
<span><span>1. Наполнить 7-литровый кувшин</span>
<span>2. Перелить из <span><span>7-литрового кувшина в </span></span><span><span>2-литровый</span></span> 2 литра.</span>
<span>3. Вылить воду из <span><span><span><span>2-литрового</span></span></span></span> кувшина в колодец. </span>
<span>4. Повторить пункты 2 и 3.</span>
<span>Результат: 3 литра воды в <span><span><span><span>7-литровом кувшине (7-2-2=3).</span></span></span></span>
</span></span>
Можешь не беспокоиться это не много