var a: integer;
begin
writeln('Введите четырехзначное число');
readln(a);
if a div 1000=(((a mod 1000) mod 100) mod 10) then writeln('Верно') else writeln('Не верно');
end.
мальчик высаживает второго мальчика на втором берегу, сам отправляется на первый. там, он выходит из лодки и сажает вместо себя солдата. солдат перемещается на второй берег и выходит. "за руль" садится мальчик и плывет к 1ому берегу, берет 2ого пацана и они оба "едут" на второй берег. там один мальчик выходит. 2ой отправляется на первый берег меняется местами со вторым солдатом и солдат плывет на второй берег. там второй пацан садится в лодку и плывет на первый берег за другом. Результат: бойцы переправились, а мальчики снова катаются.
Удачи..
я не понел сдеоаю потом