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

Question

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

Answer 1

// 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<br>    else c:=x+y;
  Writeln(c)
end.

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