bilel

program bilel;
uses WinCrt;
var
    ch : string ;
    a : integer;
    c : char;
begin
    write('Ch : ');
        Readln(ch);
    for a:=1 to Length(ch) div 2  do
        begin
            c := ch[a];
            ch[a]:=ch[Length(ch)-a+1];
            ch[Length(ch)-a+1]:= c ;
        end;
        writeln(ch);
end.