Помогите решить задачу ** языке программирования Pascal abc .Дано два числа x и y .Найти...

Question

Помогите решить задачу на языке программирования Pascal abc .Дано два числа x и y .Найти произведение этих чисел,если выполняется условие x

Answer 1

Var
  x, y: real;

begin
  x := 4.3; y := 2.6;
  if x < y then Writeln(x * y)
  else Writeln(sqr(x - y))
end.

Тестовое решение:
2.89