Question

Прошу помочь, как сделать (в Packal ABC) задание - Task('if3')! Отдам хоть всё!

Answer 1

Var n:integer;
begin
readln(n);
if n > 0 then n:=n-8
 else if n < 0 then n:=n+6
  else n:=10;
writeln(n);
end.

Пример:
-5
1

Answer 2

Var n:integer; begin readln(n); if n > 0 then write(n-8); if n < 0 then write(n+6); if n = 0 then write(10); end.

Answer 3

К сожалению, я не могу найти информацию о Packal ABC или задании Task('if3'). Можете ли вы предоставить больше информации о том, что именно вы хотите сделать или какую помощь вам нужно? Я постараюсь помочь вам насколько смогу.