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

Var a, b, rezultat: integer;

begin

writeln(`Введите значения a и b:`);
readln(a, b);

if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b

writeln(rezultat);

end.