Написать код на паскале, который выполняет следующие условия если x> 0 c=x*y^2 если x< 0 c=x-y если x=0 c=x+y

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите х и у через пробел-');
  var c:real;
  if x>0 then c:=x*y*y
  else
    if x<0 then c:=x-y
    else c:=x+y;
  Writeln(c)
end.

Пример
Введите х и у через пробел- 3.18 -5.2
85.9872