Функция

[Yara24]

Помогите решить задачу.
Дано:
var x,y,z:real;
Вычислить: z=(sigux+siguy)-sigu(x+y), где

sigua=1 при а<0
sigua=0 при а=0
sigua=1 при а>0
Определить и использовать функцию sigu

[Snejnaya]

эээ.. глупое задание какое-то...



function sigu(var a:real):integer;
{if (a=0) then result:=0
else result:=1;
}

основная программа:
var x,y,z:real;

z=(sigu(x)+sigu(y))-sigu(x+y);