Дано целое число Напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат

Pascal:uses GraphABC;var  module, input: integer;  begin  read(input);  module := Abs(input) - 2;  print(module);end.

Program n1;var a: integer;beginreadln(a);writeln(abs(a)/2);end.