Question

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

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