var a:integer;
begin
readln (a);
if a>0 then a:=a+1
else if a<0 then a:=a-2
else a:=10;
writeln(a)
end.
Объяснение:често незнаю кстати это какй класс просто интересно
16бит=2байта
2*64*56*1024=7340032=7мб