Нормальные алгоритмы Маркова. Перевернуть входное слово. Аисх={а,b,c,d}
abcd -> dcba ?
Var i:integer; s:string; begin readln(s); for i:=1 to length(s) do write(s[length(s)-i]); end.