Question

1.Дано ціле число. Якщо воно є додатнє, то додати до нього 1; в іншому випадку відняти від нього 2. Вивести отримане число.​

Answer 1

var a: integer;
begin
write('Ввести ціле число ->');
readln(a);
if a>0 then a:=a+1
else a:=a-2;
writeln('Результат = ', a);
end.