Cod sursa(job #125889)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 20 ianuarie 2008 20:16:29
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 kb
type mult=set of 1..100;
var a,b:array[1..150] of mult;
   n,i,j,x,k:integer;
   f,g:text;
begin
assign(f,'flori.in');
reset(f);
readln(f,n,k);
for i:=1 to n do
for j:=1 to k do
  begin
  read(f,x);
  a[i]:=a[i]+[x];
  end;
close(f);
assign(g,'flori.out');
rewrite(g);
{for i:=1 to n do
  begin
  for j:=1 to 100 do
   if j in a[i] then write(g,j,' ');
   writeln(g);
   end;}
for i:=1 to n do
    for
  close(g)
end.