C++ :

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

Pascal :

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