
@kuchuz
Aku Kuchuz ????
var a,c:integer;b,d:string; begin readln(a); readln(b); for c:=a downto c+1 do d:=d+b[c]; if(b<>d) then write('BUKAN '); writeln('PA...
x=x*x jadi x=10*10
y=x jadi y=100
lalu x=x div x
jadi x= 100 div 100 maka hasilnya x=1 (E)