var nimi: string;
begin
 write('Sinu nimi? '); readln(nimi);
 writeln('Sinu nime pikkus on ', length(nimi),' t„hte');
 writeln('Sinu nime esimene t„ht on ', nimi[1]);
 writeln('Sinu nime eelviimane t„ht on ', nimi[length(nimi)-1]);
end.