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('Ответ: Все одного возраста'
тут в конце нужно bIMbim bam bam дописать
У тебя все циклы не открываются и не закрываются. Естессна, при таком синтаксисе программа не будет работать от слова совсем.
Спросил у нейронки, видимо? Для начала нужно выучить основы языка, увы.
Ответ не выводится потому, что твой код не компилируется: невозможно написать работающую Pascal-программу без использования begin / end, которых у тебя в коде в помине нет.