http://bit.ly/2u9koBPРешение условия 1:var c: char;beginreadln (c);if c in [\'0\'..\'9\'] thenwriteln (ord(c))elsewriteln(chr(ord(c)+1), chr(ord(c)+2));Решение условия 2:if c in [\'A\'..\'Z\']thenwriteln(LowCase(c));end.В компиляции составляет одну программу в среде программирования PascalABC.Net