SCJ3 No 5

program soal5;
uses crt;
var tulisan:string[10];
    n,panjang:integer;
begin
        clrscr;
        write('Masukkan tulisan: ');
        read(tulisan);
        panjang:=length(tulisan);
        for n:=panjang downto 1 do
        begin
                write(tulisan[n]);
        end;
readkey;
end.