Программирование в среде паскаль. Придётся немного попотеть, 1.38,1.40,1.54.

BeginVar x:=Readreal('введите возраст Тани');Var y:=Readreal('введите Возраст Мити');Var c:=(x+y)/2;if c>x then x:=c-xelse x:=x-c;writeln('РазницаВозраста Тани=',+x);if c>y then y:=c-yelse y:=y-c;writeln('Разница возраста Мити=',+y);end.

PascalABC.NET

№1.38// PascalABC.NET 3.3, сборка 1607 от 31.12.2017// Внимание! Если программа не работает, обновите версию!begin  var (a,b,h):=ReadReal3('Длины оснований и высота трапеции:');  if a<b then Swap(a,b); // a>b всегда  var c:=Sqrt(h*h+Sqr((a-b)/2)); // боковая сторона, теорема Пифагора  Writeln('Периметр равен ',a+b+2*c:0:3)end.ПримерДлины оснований и высота трапеции: 6.5 8 7.32Периметр равен 29.217№1.40begin  var (a,b):=ReadReal2('Введите a и b:');  var x:=(2/(a*a+25)+b)/(Sqrt(b)+(a+b)/2);  var y:=(Abs(a)+Sin(2*b))/(5.5*a);  Writeln('x=',x,', y=',y)end.ПримерВведите a и b: -15.32 0.519x=-0.078846488394375, y=-0.192041182798433№1.54begin  var (x,y):=ReadInteger2('Введите возраст Тани и Мити:');  var m:=(x+y)/2;  Writeln('Средний возраст =',m:0:1);  Writeln('Возраст Тани отличается на ',x-m:0:1,', Мити на ',y-m:0:1)end.ПримерВведите возраст Тани и Мити: 15 12Средний возраст =13.5Возраст Тани отличается на 1.5, Мити на -1.5