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

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