Cod sursa(job #895635)

Utilizator tgistvanTorok Istvan tgistvan Data 27 februarie 2013 12:02:48
Problema Magazin Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var i,p,n,m,d:longint;
    x,y:integer;
    a:array[1..100,1..100]of integer;

begin
assign(f,'magazin.in');reset(f);
assign(g,'magazin.out')rewrite(g);
readln(f,p,n,m,d);
i:=1;
while i<p begin readln(x,y);
                inc(i);
                a[x,y]:=1;


          end;



close(f);
close(g);

end.