Возраст тани - x лет, а возраст мити - y лет. найти их средний возраст, а также определить, насколько отличается возраст каждого ребенка от среднего значения.

Средний возраст (x+y)/2 возраст тани отличается |(x+y)/2-x| возраст мити отличается|(x+y)/2-y| главное про модул не забудь, а то может быть возраст с минусом)

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,' лет.')       end end. тестовое решение: возраст тани=15 возраст мити=12 средний возраст равен 13.5 таня старше среднего возраста на 1.5 лет, а митя младше среднего возраста на 1.5 лет.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.