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

begin

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

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

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

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

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

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

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

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

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

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

end.