var a: integer;begin; Read(a); if a > 0 then a := a + 1 else a := a - 2; Writeln('a = ', a);end.
Ответ: 6765
Решение в файле
Вроде понятно .
Г
Б
А
Д
Е