)напишите программу.с клавиатуры вводится 15 чисел,сколько из них оканчивается на 4

Program fff;
var  i, n, c : integer;
begin  for i := 1 to 15 do begin    readln(n);    if n mod 10 = 4 then      c := c + 1;  end;    writeln(c);end.