Question

Найти разность между квадратом большего и кубом меньшего для двух чисел в весёлых с клавиатуры паскаль

Answer 1

Var A,B:real;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A>B then WriteLn(A*A-B*B*B)
else if A<B then WriteLn(B*B-A*A*A)
     else WriteLn('Числа равны')
End.