var a,b,c,count:integer;
begin
writeln ('Введите любые три числа ');
readln(a);
readln(b);
readln(c);
count:=0;
if a mod 2=0 then inc(count);
if b mod 2=0 then inc(count);
if c mod 2=0 then inc(count);
if count>0 then writeln ('Среди данных чисел есть ',count,' четн.')
else writeln ('Среди данных чисел четных нету');
end.
101010102-2528+716=101008290
2 мальчика плывут на тот берег
1 мальчик возвращается
1 солдат плывет на тот берег
второй мальчик возвращается
2 мальчика плывут на тот берег
1 мальчик возвращается
1 солдат плывет на тот берег
второй мальчик возвращается
и так по кол-ву солдат
ну его в баню такую переправу и бедные мальчики