program balik_kata;

uses crt;

var n,i,x: integer;
var balik: array [1..50] of char;
var kata: string[50];

begin
   clrscr;
   writeln(\'Program Pembalik Kata\');
   writeln;
   writeln(\'silahkan masukkan kata:\');
   readln(kata);
   n := length(kata);
   x :=1;

   for i:=n downto 1 do
   begin
      balik[x] := kata[i];
      x := x+1;
   end;

   writeln;
   writeln(\'kata setelah dibalik: \');
   for i:=1 to x do
   begin
      write(balik[i]);
   end;
   readln;
end.