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

+ 0 -

ЛинкаЧо

15 февр. 2015 г., 14:50:24 (9 лет назад)

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.