var im, fa, ot,po :string; i:integer;f:char; begin write('Введите Имя пользователя '); readln(im); write('Введите фамилию пользователя '); readln(fa); write('Введите отчество пользователя '); readln(ot); po:= im + ' ' + fa + ' ' + ot; I:= po.Length; writeln('полном имени пользователя = ',po); write('количество символов = ',i); end.