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

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

тут более простой вариант без дополнительной переменной

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