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

(алгоритм смотрите ниже)Программа:Program popcorn;var y,a,b : real;beginwrite ('ввести два разных числа ');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)написать формулу разности квадрата большего и куба меньшего числа.