100] OF INTEGER; I,J,N,H

Bài 2:

uses crt;

var g,f:text;

a,b:array[1..100] of integer;

i,j,n,h:integer;

begin

clrscr;

assign(f,'shoes.inp');

reset(f);

assign(g,'shoes.out');

rewrite(g);

readln(f,n);

for i:=1 to n-1 do

read(f,a[i]);

readln(f,a[n]);

for i:=1 to n do

read(f,b[i]);

for j:=1 to n do

if a[i]=b[j] then

begin

b[j]:=0;

break;

end;

if b[i]<>0 then

h:=h+1;

writeln(g,h);

close(f);

close(g);

readln;

end.