Question

Pascal. Ввести с клавиатуры два числа.Определить,что больше,разность квадратов или модуль квадрата разности этих чисел. Ответ вывести в виде сообщения.
помогите пжлст

Answer 1

var a,b,index,index2:integer;

begin

write('a=');

 readln(a);

write('b=');

 readln(b);

index:=(a*a-b*b);

index2:=(a-b)*(a-b);

if(index > index2) then

 write('Больше разность квадратов');

if(index2 > index) then

   write('Больше модуль квадрата разности этих чисел');

end.