Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / Prog04

program prog04;
uses crt;
var name: string[25];
begin
 clrscr;
 write('Введите имя : ');
 readln(name);
 write('Имя ', name, ' содержит ', length(name), 'символ. ');
 readln;
end.