Помогите срочно нужно написать программу в Паскале по ветвлениям) Ввести последовательно...

Сегодня примерно в 12:36 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

Помогите срочно нужно написать программу в Паскале по ветвлениям)

Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.

Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.

Заранее спасибо большое)

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Program chik;
var a,b,c:integer;
begin
write('Возраст Антона:');
readln(A);
write('Возраст Бориса:');
readln(B);
write('Возраст Виктора:');
readln(C);
if(a>b)and(a>c)then writeln('Антон старше всех.');
if(b>a)and(b>c)then writeln('Борис старше всех.');
if(c>b)and(c>a)then writeln('Виктор старше всех.');
if(a=b)and(b>c)then writeln('Антон и Борис старше Виктора');
if(a=c)and(c>b)then writeln('Антон и Виктор старше Бориса');
if(b=c)and(b>a)then writeln('Виктор и Борис старше Антона');
end.