uses crt;
var n,k,a,b:string;
begin
write('Введите четырёхзначное число: ');
readln(a);
n:=copy(a,1,2);
k:=copy(a,3,2);
b:=k+n;
writeln(b);
end.
Неправильный ответ это второй под буквой А
X - количество монет у I
y - количество монет у II
1-ая партия: I X+Y/2 ; II Y-Y/2=У/2
2-ая партия: I (X+Y/2)/2 II Y/2+(X+Y/2)/2=Y*3/4+X/2
3-я партия: I (X+Y/2)/2+1/2(Y*3/4+X/2)=X*3/4+Y* 5/8
II Y*3/8+X/4
Cистема:
X*3/4+Y*5/8=28
(X/4+Y*3/8)=12 Решение этой системы: Х=24 Y=16
Ответ 24 монеты у первого; 16 монет у второго