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

program zz1;

var a, n, i, k:integer;

begin

write ('Введите заданное число n');

readln (n); / /вводим число n с клавиатуры

for i:=1 to 5 do

begin

read (a); / /вводим с клавиатуры любые пять чисел

if a=n then k:=k+1; / /проверяем, если введенное с клавиатуры число равно n, то считаем его

end;

write ('количество введенных с клавиатуры чисел равных n - ', k); / /выводим ответ

end.