C++ :

#include<bits/stdc++.h>
using namespace std;
int main()
{
	for(int i=0;i<=100;i++)
	{
		if(i%7==0)
		cout<<i<<endl;
	}
   return 0;
}

Pascal :

var i:longint;
begin
  for i:=0 to 100 do
  if i mod 7=0 then writeln(i);
end.