С клавиатуры вводится слово,определить,сколько в нем символов на Паскале.

var s:string; begin write('Введите слово: '); readln(s); writeln('Количество символов = ',length(s)); end. Пример: Введите слово: клавиатура Количество символов = 10