program splitString;
var str: string;
    strArray: array [1..100] of char;
    i, len: byte;
begin
    write('Введите строку: ');
    readln(str);
    
    len := Length(str);
    
    for i := 1 to len do begin
      strArray[i] := str[i];
    end;
    
    writeln(strArray);
end.