var x,y:integer; vcp,dx,dy:real;begin Write('Возраст Тани='); Read(x); Write('Возраст Мити='); Read(y); vcp:=(x+y)/2; dx:=x-vcp; dy:=y-vcp; Writeln('Средний возраст равен ',vcp); if dx>0 then begin Writeln('Таня старше среднего возраста на ',dx,' лет,'); Writeln('а Митя младше среднего возраста на ',-dy,' лет.') end else if dx=0 then Writeln('Таня и Митя ровесники') else begin Writeln('Таня младше среднего возраста на ',-dx,' лет,'); Writeln('а Митя старше среднего возраста на ',dy,' лет.') endend.
Тестовое решение:Возраст Тани=15Возраст Мити=12Средний возраст равен 13.5Таня старше среднего возраста на 1.5 лет,а Митя младше среднего возраста на 1.5 лет.