SCJ3 No 6

program palindrom;
uses crt;
var
tulisan,kebalik:string;
panjang,angka:integer;
begin
        clrscr;
        writeln('Masukkan sebuah kalimat');
        read(tulisan);
        panjang:=length(tulisan);
        for angka:= 1 to panjang do
        begin
                kebalik:=kebalik+tulisan[panjang-angka+1];
        end;
        writeln('kebalik=',kebalik);
        if kebalik = tulisan then
                writeln('palindrom')
        else    writeln('bukan palindrom');
        readkey;
end.