Срочно! Помогите, пожалуйста Даны два различных числа a и b .Если a меньше b, то...

Question

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

Comments

if a < b then writeln(a*b) else writeln(sqr(a)-sqr(b))

Answer 1

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.