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

Function Sign(x:real):integer;beginif 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 0Sign(A) + Sign(B) = -1