Program Strings (Input,Output);

Var
  S,P : String;
  sa : Array[1..10] of Char;
  A : Array[1..10] Of String;
  i : Integer;

Begin
(*  Writeln('Enter string ');
  Readln(S);
  Writeln(S);
  S := 'hello new string';
  Writeln(S);
  Readln(sa);
  Writeln(sa);
  sa := 'new for sa';
  Writeln(sa);
  P := 'new for sa';
  IF S = P THEN
    Writeln('s=p')
  ELSE
    Writeln('s <> p'); *)

(*  For i:= 1 to 5 do
    Readln(A[i]);

  For i:= 1 to 5 do
    Writeln(A[i]);
*)

   Writeln('Enter name');
   Readln(sa);
  For i:= 1 to 15 do
    Writeln(sa[i]);
   
End.