deng_shi.pas

本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS的程序

program dengshi;
     var n,i,j:integer;
         a:array[1..10]of integer;
 begin
  for n:=0to 9 do
   if n*10+3*6528=(3*10+n)*8256 then
     writeln('n=',n)
   else write('X');
  readln
 end.