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

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.