uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  write('k=');readln(k);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  d:=0;
  for i:=1 to n do if(a[i]=k)then inc(d);
  writeln('so phan tu bang voi:',k,' la:',d);
  write('cac so co vi tri bang voi:',k,' la:');
  tong:=0;
  for i:=1 to n do if(a[i]=k)then
        begin
         write(i,' ');
         tong:=tong+a[i];
        end;
  write('tong cua cac so bang voi:',k,' la:',tong);
 readln;
end.

chắc là n

uses crt;

var i,n,dem:longint;

BEGIN

clrscr;

write('nhap so nguyen duong n:');readln(n);

dem:=0;

for i:=1 to n do 

begin

if n mod 2 =1  do 

begin

inc(dem);

write(i,' ')

if dem=15 then writeln;

end;

end;

readln;

end.

uses crt;

var i,n,dem:longint;a:array[1..1000]of longint;

begin

clrscr;

write('nhap so phan tu cua day:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu',i,'=');readln(a[i]);

end;

for i:=1 to n do if(a[i] mod 2=0)then inc(dem);

writeln('co tat ca:',dem,'so chan');

readln;

end.