infoarena

type elev=record
                nota1:longint;
                nota2:longint;
                end;
var clasa:array[1..100] of elev;

 readln(fisier,v[i]) 

var a:array[1..100] of integer;

....

for i:=1 to 3000 do a[i]:=1;

14
13
2
189
3
18
29
398
192
38
182
8930
31
34008
18203

12
10
20
30
47815
50000
49999
10
19823
7291
47381
2810
1

18
19272
182
18949
281
38540
283
4840
283
4
42721
46738
4839
47329
25329
47832
33823
3
5

2
2
3

1
1

3
3
4
5

for(i=1;i<=n;i++)
 {
  s+=a[i];
  if(!v[i])
   v[i]=2,min++;
  for(i1=a[i]*2;i1<=max+1;i1+=a[i])
   if(!v[i1]) v[i1]=1;
  for(i1=s;i1<=max+1;i1+=s)
   if(!v[i1]) v[i1]=1;
 }
 fprintf(g,"%ld\n",min);
 for(i1=1;i1<=max+1;i1++)
  if(v[i1]==2)
   fprintf(g,"%ld\n",a[i1]);

program economie;
begin
...........
exit(0)
end

   1. program pascal;  
   2. var f,g:text;    t:array[1..50000] of byte; x,p:array[1..1000] of longint;  
   3.                  max,i,k,j,n,aux,c:longint;  
   4.   procedure citire;  
   5.   begin  
   6.   assign(f,'economie.in'); reset(f);  
   7.   assign(g,'economie.out'); rewrite(g);  
   8.   readln(f,n);  
   9.   
  10.   for i:=1 to n do readln(f,x[i]);  
  11.   max:=50000;  
  12.   for i:=1 to max do t[i]:=1;  
  13.   close(f);  
  14.   end;  
  15.   
  16.   procedure sort(s,d:longint);  
  17.   var a,b,aux,ia:longint;  
  18.   begin  
  19.     a:=s; b:=d;  
  20.     repeat  
  21.     while x[a]<x[b] do b:=b-1;  
  22.     aux:=x[a]; x[a]:=x[b]; x[b]:=aux; ia:=1; a:=a+1;  
  23.     if a<b then  
  24.             begin  
  25.             while x[a]<x[b] do a:=a+1;  
  26.             if a<>b then  
  27.              begin  
  28.              aux:=x[a]; x[a]:=x[b]; x[b]:=aux; ia:=0; b:=b-1;  
  29.              end;  
  30.             end;  
  31.     until b<=a;  
  32.     if a-ia>s then sort(s,a-ia);  
  33.     if a-ia+1<d then sort(a-ia+1,d);  
  34.   end;  
  35.   
  36.   procedure sorte;  
  37.   begin  
  38.   k:=0;  
  39.   for j:=1 to n do  
  40.     begin  
  41.     if  t[x[j]]=1 then  
  42.        begin  
  43.        k:=k+1; p[k]:=x[j]; t[x[j]]:=0;  
  44.        end;  
  45.     for i:=1 to max do  
  46.     if t[i]=0 then  
  47.              begin  
  48.              c:=i+x[j];  
  49.              if (c<=max) then t[c]:=0;  
  50.              end;  
  51.      end;  
  52.   end;  
  53.   
  54.   procedure afisare;  
  55.   begin  
  56.   writeln(g,k);  
  57.   for i:=1 to k do writeln(g,p[i]);  
  58.   close(g);  
  59.   end;  
  60.   
  61. begin  
  62. citire;  
  63. sort(1,n);  
  64. sorte;  
  65. afisare;  
  66. end.