const alf:string='abcdefghijklmnopqrstuvwxyz';
var s:string;
    i:byte;
begin
writeln('introduceti numele cu litere mici');
read(s);
for i:=1 to length(s) do
write(' ',pos(s[i],alf));
writeln();
writeln('-1 = spatiu');
end.