C++ :

#include<cstdio>
#include<cmath>
int i,j,s,x;
int main(){
    for (i=1;i<=200;i++){
    x=floor(sqrt(i));
      for (j=2;j<=x;j++)
      if (i % j==0);{
       printf("%d ",i);
       s++;
       break;
            }
       printf("%d",s);  
        }
    return 0;
}

Pascal :

var
 i,j,t,s:integer;

   begin
    s:=0;
    for i:=2 to 200 do
     begin
       t:=1;
       for j:=2 to trunc(sqrt(i))  do
        if i mod j=0 then t:=0;
        if t=1 then  begin  write(i,' '); inc(s);  end;
     end;
      writeln;
      write(s);
  end.