djonik2 uses crt;
var
a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:');readln(a);
k:=1;
for i:=2 to 18 do begin 
readln(b); 
k:=k + ord(b=a); 
end;
write('Количество одинаковых в начале=',k);
readln
end.