C++ :

#include<iostream>
using namespace std;
int main()
{
    for (int i=1;i<=100;i++)
         cout<<i<<endl;
	return 0;
}

Pascal :

var i:integer;
begin
   for i:=1 to 100 do
      writeln(i); 
end.