Program Balik

Uses crt;

    Var kt,hkt,hkt1:string;

    i,j:integer;

Begin

         Writeln('Program Balik');

         Writeln('=================');

         Writeln;

         Write('Masukkan Kata: ');Readln(kt);

        Writeln;

                j:=length(kt);

                hkt:='';

        For i:= 1 to j do

               hkt:=hkt+kt[i];

               For i:= j downto 1 do

               hkt1:=hkt1+kt[i];

Writeln('Asal: ',hkt,' Dibalik: ',hkt1);

Writeln;readkey;

End.