Question

АААА НУЖНА ПОМОЩЬ, ЛЮДИ ДОБРЫЕ!!!!!
9 класс, напишите программу
даны два числа, не равные друг другу. Замените большее из них молулем суммы, а меньшее-разностью квадратов этих чисел.

Answer 1

Program abc;
var a,b,c:integer;
begin
writeln('Введите два числа');
read(a,b);
if a>b then begin c:=a;
a:=abs(a+b);
b:=a*a-b*b; end else
if a<b then begin c:=b;
b:=abs(a+b);
a:=b*b-a*a; end;
writeln(a,' ',b);
end.