program spanzuratoarea;
Var u,v:array[1..25] of char;
       lit:char;
C,n,p,i:integer;
OK: boolean;
Begin
P:=0;
Write ('introduceti cuvantul: ');
While not eoln do begin 
P:=p+1;
Read(p);
End;
N:=p;
For p:=1to n do write v[i];
Readln;
End.