Question

дано целое число если оно является положительным то вычесть из него 8. в противном случае прибавить к нему 6.вывести полученное число .

Answer 1

var a:integer;
begin
read(a);
if a>=0 then
write(a-8) else
write(a+6);
end.

Answer 2

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  n:= n>0 ? n-8 : n+6;
  Writeln('n=',n)
end.