Задание по информатике нужно для школы(Паскаль)

Задание на фотке

const N = 40;

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

   i, x:integer;

begin

for i:=1 to N do begin

 readln(a[i]);

 if i<>1 then

  if a[i]=a[1] then

   x:=x+1;

end;

writeln(x);

end.