1)
var
a,b : integer;
begin
readln (a,b);
if a > b then
b := a +b;<span>
writeln (a,' ',b);
end.</span>
Можно заменить на
read(x1,y2,x3,x4);
<span>Одну и ту же информацию можно кодировать разными способами. Например, русский текст мы привыкли записывать с помощью русского алфавита. Этот же текст можно записать латинскими буквами или используя азбуку Морзе.</span>
Использовать Водолей
алг переливайка
нач
наполни A
перелей из A в B
перелей из B в C
перелей из C в A
перелей из B в C
перелей из A в B
перелей из B в C
перелей из C в A
<span>
кон</span>
Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>