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

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