1)напишите программу, в которой вводится символ, если он находится в интервале '0'. . '9', то на экран выводится его код, в противном случае на экран выводятся следующие за ним 2 символа 2)напишите программу, которая при вводе латинской прописной буквы выводит на экран такую же букву, но строчную на !

//PascalABC.Net 3.1.0.1200
var
    c: char;

begin
    readln(c);
    
    if c in ['0'..'9'] then
        writeln(ord(c))
    else
        writeln(chr(ord(c) + 1), chr(ord(c) + 2));
    
    if c in ['A'..'Z'] then
        writeln(LowCase(c));
end.

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.