Паскаль Помогите пжж 8 класс

Question

Паскаль Помогите пжж 8 класс

- Ученик (205), на голосовании 1 год назад

Решить на языке паскаль (на листе записать программу) дано целое число, если оно является положительным то прибавить к нему 3, а если отрицательным то вычесть 1, вывести полученное число на экран

Answer 1

 var x: integer;
...
if x > 0 then x := x+3;
if x < 0 then x := x-1;
writeln (x);