superprima

Program superprima;
var
i,y,a,b: integer;

function reverse(x:integer):integer; //buat ngebalik bilangan
var
y: integer;
begin
    while x>0 do
    begin
    y:=y+ x mod 10;
    x:= x div 10;
    end;
    reverse:=y;
end;

function prima(x:integer):boolean; //Buat ngecek dia bilangan prima apa bukan
var
j:integer;
begin
        prima:=true;
        if x=1 then prima:=false
        else begin
            j:=2;
            while (j*j<=x) do begin
                if (x mod j=0) then begin
                prima:=false;
                break;
                end;
                j:=j+1;
            end;
        end;
end;

begin
    readln(a,b);
    for i:=a to b do begin
        if prima(i) then begin
            y:=reverse(i);
            if prima(y) then writeln(i);
            //jadi konsepnya dia ngecek dulu bilangan itu prima apa engga, kalo prima, bilangannya dibalik
            //trus abis dibalik dicek lagi, bilangan kebalikannya prima apa engga
            //kalo ternyata masih prima, yaudah dia superprima
        end;
    end;
end.