danikpish

Ответ:

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=17 else a:=a+1

else a:=a-3;

end.

Объяснение: думаю этот код подойдёт ...