x:=841;y:=1189;for(i,0,10,writeln("A",i,if(i<10," ",""),x asString(5,0),"mm x",y asString(5,0),"mm");t:=y;y=x;x=t/2|0)