Вычислить значение у по одной из формул

алг функция

нач вещ х, у

вывод “введите два числа”

ввод х, у

если х < 10

то у : = х+2

иначе у : = х-2

все

вывод у

кон

var x,y : Integer;

begin

readln(x);

if x < 10 then y := x + 2 else y := x - 2;

writeln(y);

end.

Function func32651706(a As Double) As Double

func32651706 = (a + 2) * Fix((1 - Sgn(a - 10)) / 2) + (a - 2) * Fix((2 + Sgn(a - 10)) / 2)

End Function

Excel VBA