var Anton,Boris, Victor: integer;
Writeln('Напишите возраст: Антона, Бориса, Виктора'
read(Anton, Boris, Victor);
Writeln('Возраст Антона:',Anton);
Writeln('Возраст Бориса:',Boris);
Writeln('Возраст Виктора:',Victor);
if Anton>Boris then
if Anton>Victor then Writeln('Ответ: Антон старше всех'
else
if Anton=Boris then
if Anton>Victor then Writeln('Ответ: Антон и Борис старше Виктора'
if Boris>Anton then
if Boris>Victor then Writeln('Ответ: Борис старше всех'
else
if Boris=Victor then
if Boris>Anton then Writeln('Ответ: Борис и Виктор старше Антона'
if Victor>Anton then
if Victor>Boris then Writeln('Ответ: Виктор старше всех'
else
if Victor=Anton then
if Victor>Boris then Writeln('Ответ: Виктор и Антон старше Бориса'
if Anton=Boris then
if Boris=Victor then Writeln('Ответ: Все одного возраста'
Writeln('Напишите возраст: Антона, Бориса, Виктора'
read(Anton, Boris, Victor);
Writeln('Возраст Антона:',Anton);
Writeln('Возраст Бориса:',Boris);
Writeln('Возраст Виктора:',Victor);
if Anton>Boris then
if Anton>Victor then Writeln('Ответ: Антон старше всех'
else
if Anton=Boris then
if Anton>Victor then Writeln('Ответ: Антон и Борис старше Виктора'
if Boris>Anton then
if Boris>Victor then Writeln('Ответ: Борис старше всех'
else
if Boris=Victor then
if Boris>Anton then Writeln('Ответ: Борис и Виктор старше Антона'
if Victor>Anton then
if Victor>Boris then Writeln('Ответ: Виктор старше всех'
else
if Victor=Anton then
if Victor>Boris then Writeln('Ответ: Виктор и Антон старше Бориса'
if Anton=Boris then
if Boris=Victor then Writeln('Ответ: Все одного возраста'