var
    ch : Char;

begin
    ch := '0';
    WriteLn (ch);
    Inc (ch);
    WriteLn (ch)
end.