помогите перевести на си

[Светлана12]

помогите перевести на си
var
a,b,i:integer;
s,m:string;
begin
writeln('вв предложение');
readln(s);
a:=length(s);
for i:=a downto 1 do
begin
m:=copy(s,i,1);
s:=s+m;
end;
delete(s,1,a);
writeln(s);
readln;
end.