, где:
-1 при a < 0
sig = 0 при a = 0
1 при a > 0
Значения x и y вводятся с клавиатуры. Для решения задачи создать и использовать
функцию sig.
function sig(x:real):integer;
begin
if x<0 then sig:=-1
else if x=0 then sig:=0
else sig:=1
end;
var x,y,z:real;
begin
writeln('Введите значения x,y');
readln(x,y);
z:=sig(x)+sig(y);
write('z=',z);
readln
end.