Дано слово. Вывести на экран его третий символ и дважды его последний символ.

program gt;var s:string;l:integer;beginreadln(s);l:=length(s);writeln(s[1]);writeln(s[l],' ',s[l]);end.