- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
var
s1:string;
i:integer;
const
m=50;
begin
write ('Введите строку: ');
for i:=1 to m do
begin
write ('s1[',i,']');
readln (s1[i]);
end;
writeln ('Длина строки: ', length(s1));
end.