uses graph, crt;
const N=1000;K=1000;
var i,j,d, m, arv, uusarv:integer;
    algarv:Boolean;
    p:array[5..9] of integer;
    s:string;

begin clrscr ;
d:=detect; initgraph (d, m, '');
 for arv:=1 to N do
  begin
   algarv:=TRUE;
   i:=2;
    repeat
     if arv mod i = 0 then
       algarv:=FALSE;
       inc(i);
       until(i>=arv) or (not algarv);
     if algarv then begin
     uusarv:=arv;

     case uusarv of
      0..199 : inc (p[5]);
      200..399 : inc (p[6]);
      400..599: inc (p[7]);
      600..799 : inc (p[8]);
      800..999 : inc (p[9]);
     end;
    end;
  end;
  for j:=5 to 9 do writeln(p[j]);
     for j:=5 to 9 do
      begin
      bar (75+60*(j-5), 400-(p[j]*10), 75+60*(j-4), 400);
      end;
       arv:=0;
 while(arv<=40) do
 begin
  str(arv:2, s);
  outtextxy(1, 400-arv*10, s);
  arv:=arv+1;
 end;                                                                         {joonistab 0, 5, 10,..,30 ylevalt alla}
 settextstyle(DefaultFont,VertDir,1);
 arv:=1;
 while(arv<1000) do
 begin
  str(arv:2, s);
  outtextxy(100+round(0.33*(arv-100)), 400, s);
  arv:=arv+200;
 end;
  readln;
  closegraph;
end.