C++ :

#include<iostream>
using namespace std;
int main()
{
	int n=0,i,j;
	for (i=2;i<=100;i++)
	{
		for (j=2;j<i;j++)
			if (i%j==0)
				break;
		if (j>=i){
			n++;
			if (n%5) cout<<i<<" ";
			else cout<<i<<endl;
		}
	}
	if (n%5) cout<<endl;
    return 0;
}

Pascal :

var i,j,t:integer;
    f:boolean;
begin
  for i:=2 to 100 do
    begin
      f:=true;
      for j:=2 to trunc(sqrt(i)) do
        if i mod j =0 then
                        begin
                          f:=false;
                          break;
                        end;
      if f=true then
                 begin
                    write(i,' ');
                    t:=t+1;
                    if t mod 5=0 then writeln;
                 end;
    end;
end.