var str,strnew:string;
i:integer;
begin
readln(str);
i:= str.length;
while i>1 do
strnew := strnew + str[i] ;
i:=i-1;
end;
write(strnew);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var str,strnew:string;
i:integer;
begin
readln(str);
i:= str.length;
while i>1 do
begin
strnew := strnew + str[i] ;
i:=i-1;
end;
write(strnew);
end.