Составить программу получающую на входе целое число a. Если a меньше 0, тогда a:=a+3, иначе a:=a-1. Какой результат выдаст программа при a = 0, a = -5, a=5?
Составить программу в паскаль, если можно то скрином из паскаля!

var

 a: integer;

begin

 Read(a);

 if a < 0 then a := a + 3 else a := a - 1;

 Writeln('Конечный результат', a);

end.

Тестовое решениеЖ

Введите А := 0

Конечный результат-1

Введите А  -5

Конечный результат-2

Введите А  -5

Конечный результат 4

40-1=40 ніг буде без капітана

15-1=14 голів буде без капітана

40/2=20

20-14=6 котів було на кораблі

125 -   5/7

  х     - 2/7

х = (125 * 2/7) : 5/7 = 50 человек