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

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