👤

de elaborat programul ce inversează un cuvint

Răspuns :

var s:string; i:byte;
begin
read(s);
for i:=0 to length(s) do
begin
if i=length(s) then break;
write(s[length(s)-i]);
end;
end.