Дано целое число. если оно положительно, то вычесть из него 8, в противном случае не изменять его. вывести полученное число.

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

begin
  var n:=ReadInteger;
  if n>0 then n-=8;
  Writeln(n)
end.

PascalABC:
program n;
var
a: integer;
begin
readln(a);
if a>0
a-=8;
writeln(a);
end.

C#
int: a = 0;
a = Convert.ToInt32(Console.ReadLine());
if (a>0)
{
a-=8;
}
Console.WriteLine(a);

Console.ReadLine();