const su='abc';    {задаємо сталий рядок символів нижнього регістру}
      sl='ABC';    {задаємо сталий рядок символів верхнього регістру}
var f:text;        {оголошуємо змінну файлового типу}
    c:char;        {оголошуємо змінну символьного типу}
    j:byte;        {оголошуємо змінну цілочисельного типу}
    a:array[1..255] of longint;{оголошуємо масив, який містить елементи цілочисельного типу}
BEGIN
    assign(f,'input.txt');{зв'язуємо змінну файлового типу з файлом на диску}
    reset(f);             {відкриваємо файл для читування з нього даних}
    while not seekeof(f) do
    begin
        Read(f,c);        {зчитуємо символ з файлу}
        inc(a[pos(c,su)+1]);
        inc(a[pos(c,sl)+1]);
    end;
    close(f);
    assign(f,'output.txt');
    rewrite(f);
    for j:=1 to length(su) do writeln(f,su[j],a[j+1]:11);
    close(f);
    readln();
END.