Напишите программу, которая получает с клавиатуры возрасты трёх человек (Антона, Бориса и Виктора) и определяет, кто из них старше. Пример: Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Борис старше всех.

program prog; uses crt; var a,b,v:integer; begin clrscr; write('Возраст Антона = '); readln(a); write('Возраст Бориса = '); readln(b); write('Возраст Виктора = '); readln(v); writeln; if (a>b)and(a>v) then writeln('Антон старше всех.'); if (b>a)and(b>v) then writeln('Борис старше всех.'); if (v>a)and(v>b) then writeln('Виктор старше всех.'); if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора'); if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса'); if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона'); if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста'); end.