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

Question

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

Answer 1

Program vvl;

Var x:integer;

      V:real;

Begin

Write('x=');

Readln (x);

V:= abs(a)-2;

Writeln ('V='; V:2:1);

End.

Answer 2

var n,z:longint;

begin

  read(N);

  z:=abs(n);

  z:=z-2;

  writeln(z);

end.