Напишите программу, пожалуйста.

Даны два числа, не равные друг другу. Замените большее из них молулем суммы, а меньшее-разностью квадратов этих чисел.

Пусть X - первое число, а Y - второе.var Z,C: Integer;Z:= Abs(X+Y);C:= sqr(X) - 2*X*Y + Sqr(Y);If (X>Y) thenX := Z;Y := C;ElseX:=C;Y:= Z;End;Или, чтобы совсем круто с функциями:function MinusSqr(X, Y: Integer) : IntegerbeginMinusSqr = sqr(X) - 2*X*Y + Sqr(Y);End;if X> Y thenX := MinusSqr(X,Y)Y := Abs(X + Y)ElseY := MinusSqr(X,Y)X := Abs(X+Y)End;