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

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