Срочно! Помогите, пожалуйста
Даны два различных числа a и b .Если a меньше b, то вычислить их произведение a*b, в противном случае- разность квадратов (a^2-b^2).Результат вывести на экран

var a, b, rezultat: integer;beginwriteln(`Введите значения a и b:`);readln(a, b);if a < b then rezultat:=a*belse rezultat:=a*a-b*bwriteln(rezultat);end.