Описать функцию Sign (X) целого типа, возвращающую для вещественного числа X следующие значения: 6 - 1, если X 0. С помощью этой функции найти значение выражения Sign (A) + Sign (B) для данных вещественных чисел A и B.

Function Sign (x:real) : integer;

begin

if x<0 then Sign:=-1

else if x=0 then Sign:=0

else Sign:=1;

end;

var a, b:real;

begin

writeln ('a, b:') ;

readln (a, b) ;

writeln ('Sign (A) + Sign (B) = ', Sign (a) + Sign (b)) ;

end.

Пример:

a, b:

-8 0

Sign (A) + Sign (B) = - 1