Вводится слово из 4 букв. напечатать слово из 3-й, 4-й и 1-й букв. пример: 'кора' - 'рак'

Var
   i:integer;
   s:string;
begin
write('Введите слово из 4 букв: ');
readln(s);
writeln(s[3],s[4],s[1])
end.