Написать программу: 1. ввод с клавиатуры строки данных; 2. подсчитать длину строки и вывести на экран.

Program art;
 var s: string; 
 k: integer;
begin 
 writeln('Введите строку'); 
 readln(s); 
 k:=length(s); 
 writeln('Длина строки: ',k);    
end.