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

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