begin
  var n: integer;
  var s: string;
  while True do
  begin
    s := ReadString('Введите число, n =');
    if integer.TryParse(s, n) then break;
  end;
  for var i := 1 to s.Length do 
    Println(s[i])
end.