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

Var

A:integer;

k, n:integer;

Begin

Write ('Введите 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.