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

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     else WriteLn('Числа равны')
End.