Var A,B,V:integer;
begin
readln(A,B,V);
if (A>B) and (A>V) then
writeln(Антон старше)
else if (B>V) and (B>A) then
writeln(Борис старше)
else if (V>B) and (V>A) then
writeln(Виктор старше)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.