uses crt;
var numero:array [1..80] of integer;
numero_b,i,aux:integer;
begin
clrscr;
aux:= 0;
for i:= 1 to 80 do begin
writeln('Entre com o ', i, ' número:');
readln(numero[i]);
end;
clrscr;
writeln('Entre abaixo com um número:');
readln(numero_b);
for i:= 1 to 80 do begin
if numero_b=numero[i] then begin
aux:= aux+ 1;
end;
end;
clrscr;
writeln('O número digitado, aparece ',aux, ' vez(es) no array!');
readkey;
end.