pascal求N以内能被3,7整除的数的和

program ex; var n,i:integer;//s是输入的数,i是循环变量 s:longint;//统计和的变量 begin readln(N);//读入n s:=0;//s赋初值 for i:=21 to n do//循环 if (i mod 21=0) then s:=s+i;//如果循环变量除以3*7的余数为0,那么s就累加。 writeln(s);//循环过后,输出统计变量s END。