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

Question

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

ПЛИИИИЗЗЗЗЗ.....HЕLP(((

Answer 1

uses crt;
var
n:integer;
BEGIN
read(n)
n:=abs(n)-2;
write(n);
END.

Answer 2

var

 n:integer;

begin

 readln(n);

 writeln(abs(n)-2);

end.