Ладно смотрите пример во вложении. Проверяйте спрашивайте. Я контроль значения параметра a добавил.
//PascalABC
var
N : integer;
begin
write('Введите число > ');
readln(N);
write('Получите модуль числа > ', abs(N));
end.
<span>Пример реализации на Excel:</span>
=IF(C6=1;D6*C$2;IF(C6=2;D6*D$2;D6*E$2))
<span>Формулы защищены без пароля, чтобы случайно не внести
погрешности.</span>