Цитата(Sixthirty @ 8.5.2011, 20:39) 
Код
program pr1;
var
s:string;
i:integer;
begin
s:='';
writeln('Enter symbols');
readln(s);
for i:=1 to length(s) do
writeln(s[i]);
end.
var
s:string;
i:integer;
begin
s:='';
writeln('Enter symbols');
readln(s);
for i:=1 to length(s) do
writeln(s[i]);
end.
Подразумевается, что вводить символы вы будете без пробелов, а окончание ввода произведете нажатием на enter.
Спасибо
