program TIn_hoc;
uses crt;
var i,tong,n,k:integer;
a: array [1..10000] of integer;
begin
clrscr;
write('Nhap do dai cua mang: ');readln(n);
write('Nhap gia tri muon tinh tong: ');readln(k);
tong:=0;
writeln('Nhap ',n,' phan tu cua mang:');
for i := 1 to n do
begin
readln(a[i]);
if a[i] = k then tong:=tong+a[i]
end;
writeln('Tong cac phan tu co gia tri bang mot so cho truoc co trong mang la: ',tong);
readln;
end.