Вводится 7 чисел.посчитайте количество чисел, которые заканчиваются на 5.паскаль

var a:array [1..7] of integer;i,n:integer;beginn:=0;For i:=1 to 7 dobeginread (a[i]);If (a[i] mod 10)=5 thenn:=n+1;end;writeln (n);end.При условии, что числа - целые

var a,i,k:integer;begink:=0;for i:=1 to 7 do begin write(i,'-е число = '); readln(a); if a mod 10 = 5 then k:=k+1; end;writeln('k = ',k);end.Пример:1-е число = 682-е число = 153-е число = 7514-е число = 9355-е число = 476-е число = 5127-е число = 370k = 2