ПОМОГИТЕ!! ОЧЕНЬ СРОЧНО!! СОСТАВИТЬ ПРОГРАММУ ИМЕННО В КУМИРЕ!!
№3 Последовательно вводятся n целых чисел. Сосчитать сколько из них совпадают с первым числом.

var k,n,p1: integer; begin writeln('Vvedite chislo'); readln(p1); n:=0; repeat writeln('Vvedite chislo'); readln(k); if (k=p1) then n:=n+1; until k<>-100 Write('Kol-vo sovpadeniy = ',n); end.