Cod sursa(job #1266469)

Utilizator radu_cebotariRadu Cebotari radu_cebotari Data 18 noiembrie 2014 19:37:15
Problema Loto Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program a1;
var v:array[1..100001] of string[25];
    n:longint;
    f,g:text;

procedure citire;
var i:longint;
   assign(f,'hacker3.in');
   reset(f);
   read(f,n);
   for i:=1 to n do
      read(f,v[i]);
   close(f);
end;

begin
  citire;
  assign(g,'hacker3.out');
  rewrite(g);
  writeln(g,3);
  close(g);
end.