program stringharomszogben;
var s:string;
    i:byte;
begin
     WriteLn('Kerem a sztringet!');
     ReadLn(s);
     for i:=1 to length(s) do writeln(s[i]);
     readln
end.