PALINDROM 2

procedure cekpalindrom(bil:longint);

var

        i:byte;
        st,balikan:string[12];





begin

        str(bil,st);
        balikan := '';

        for i:=1 to length(st) do
        begin
                balikan :=st[i] + balikan;
        end ;

        if balikan=st then
                write(#32,st);
end;

var
        bilanganakhir,bilanganawal,x:longint;

begin

        write('bilangan awal:');readln(bilanganawal);
        write('bilangan akhir:');readln(bilanganakhir);
        for x:=bilanganawal to bilanganakhir do
        if not (x in[0..9]) then cekpalindrom(x);

end.