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

Var   A:integer;   k,n:integer;BeginWrite('Введите 15 чисел: ');k:=0;For n:= 1 to 15 do    Begin    Read(A);    if Abs(A) mod 10 = 4 then k:=k+1     End;WriteLn('Количество чисел, оканчивающихся на 4: ',k);End.