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

(алгоритм смотрите ниже) Программа:

Program popcorn;

var y, a, b : real;

begin

write ('ввести два разных числа ') ;

read (a, b) ;

if (a>b) then begin y:=a*a-b*b*b; write ('разница квадрата большего и куба меньшего числа = ', y) ; end else begin y:=b*b-а*а*а; write ('разница квадрата большего и куба меньшего числа = ', y) ; end;

end.

Алгоритм:

1) ввести два разных числа

2) найти большее число

3) написать формулу разности квадрата большего и куба меньшего числа.