Ввести с клавиатуры фразу и подщитать количество символов в ней

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Writeln('Символов: ',ReadlnString('Введите:').Count)
end.

Тестовое решение:
Введите: А роза упала на лапу Азора
Символов: 26