ПОМОГИТЕ!! ОЧЕНЬ СРОЧНО!! СОСТАВИТЬ ПРОГРАММУ ИМЕННО В КУМИРЕ!! №3 Последовательно...

Question

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

Answer 1

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.