Написать программу по инф-ке. с клавиатуры вводят символ. составьте программу, которая выводит два следующих символа.

Var
    a : char;
    b : integer;
begin
    readln(a);
    b := ord(a);
    writeln(chr(b+1), chr(b+2))
end.