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

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