Question

Пожалуйста помогите информатика .Можете прислать фотку компа .

Answer 1

begin

 var a := ReadInteger('Возраст Антона:');

 var b := ReadInteger('Возраст Бориса:');

 var v := ReadInteger('Возраст Виктора:');

 if (a > b) and (a > v) then begin Println('Антон старше всех');exit; end;

 if (b > a) and (b > v) then begin Println('Борис старше всех');exit; end;

 if (v > a) and (v > b) then begin Println('Виктор старше всех');exit; end;

 if (a > v) and (a = b) then begin Println('Антон и Борис старше Виктора.');exit; end;

 if (a > b) and (a = v) then begin Println('Антон и Виктор старше Бориса.');exit; end;

 if (v > a) and (v = b) then begin Println('Виктор и Борис старше Антона.');exit; end;

 if (a = b) and (b = v) then begin Println('Виктор, Борис и Антон одного возраста.');exit; end;

end.