Считает количество букв, цифр, знаков в строке
program test;
var a:string;
begin
read (a);
write(length(a));
end.
