Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым...

Question

Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.Ввести 12 чисел. Определить сколько чисел кратно 5
Паскаль(Заранее спасибо)

Answer 1

№1
var a, b, k, i:integer;
begin
k:=0;
readln(a);
for i:=1 to 9 do begin
readln(b);
if a=b then k:=k+1;
end;
writeln('Ответ:', k);
end.

№2
var a, k, i:integer;
begin
k:=0;
for i:=1 to 12 do begin
readln(a);
if a mod 5=0 then k:=k+1;
end;
writeln('Ответ:', k);
end.