Посчитать то, что под знаками вопроса и проверить другие

ответ:

объяснение:

в приложенном файле реализовано

канал - 5букв

телевизор,компьютер 9букв

крик - 4буквы

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.