Ввести любых 5 чисел с клавиатуры. Определить сколько чисел ввели равных числу N. Паскаль

Question

Ввести любых 5 чисел с клавиатуры. Определить сколько чисел ввели равных числу N. Паскаль

Answer 1

Var i,j,x,n
x - введенное число, i  - число с которым нужно сравнить, n - счётчик чисел

n:=0;
ReadLn (i); 
for j:=1 to 5 do begin
ReadLn (x); 
if x=i then n:=n+1;
end;
writeLn("N= "n)