Составить программу.дан массив,состоящий из 5 элементов.найти кол-во элементов равных 7.числа 7,14,-3,7,0.

Var
  a   : array [1..100] of longint;
  k,i : longint;
begin
  k:=0;
  for i:=1 to 5 do begin read(a[i]); if a[i]=k then k:=k+1; end;
  writeln(k);
end.