Составьте программу, печатающую слово в обратном порядке.

Var s:string; i:integer; 
Begin 
Readln(s); i:=length(s); 
while (i>0) and (s [ i]= ) do i:=i-1; 
if i=0 then Writeln(слова в строке не обнаружены) 
else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]= ); 
End. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.