Question

При проверке установлено, что организация за 2007 год не доначислила налоги: – НДС за 2 квартал 2007 г. – 15 000 руб.; – налог на прибыль организаций – 8 500 руб.;

Answer 1

Var n : integer;
begin
read(n);
if n = 0 then
write('10') else
if n > 0 then
write(n+1) else
if n < 0 then
write(n-2);
end.

Answer 2

program sa;

uses crt;

var x:integer;

begin

clrscr;

readln(x);

if x>0 then x:=x+1;

if x<0 then x:=x-2;

if x=0 then x:=10;

writeln(x);

readln;

end.