Хей, кто там помнит Паскаль?)

Question

Определить значение Z=sign(X)+sign(Y), где 
 -1 при а<0 
sign(a)= 0 при a=0 
 1 при a>1 
Значение Х, У вводятся с клавиатуры. Задачу решить, используя функцию sign. 
 
Помогите, пожалуйста))

Дмитрий Сизанов · Accepted Answer

Помнит! ? Да я пишу на нем! ! 
 
function sign(x:Integer); 
begin 
if x<0 then 
Result:=-1 
else if x=0 then 
Result:=0 
else 
Result:=1; 
end; 
 
var 
a,b:Integer; 
 
begin 
Readln(a,b); 
writeln('Z=',sign(a)+sign(b)); 
end; 
 
Негоже такой язык обижать!