nian_lin.pas

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

program nianling;
     var x,b,n,m,s:integer;
 begin
  for n:=0 to 100 do
   begin
    x:=12+n;
    b:=20+x;
    s:=b mod x;
    if s=0 then
     begin
      m:=b div x;
      writeln('nian:',n);
      writeln('bei=',m);
      write('xiao:',x:3,' ba:',b);
     end;
   end;
  readln
 end.