Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000. Напишите программу, позволяющую найти и вывести количество элементов массива, кратных трём, запись которых заканчивается цифрой 1. Паскаль АБС

const

n=30;

var

a:array[1 ... n] of integer;

i, k:integer;

begin

Randomize;

Writeln ('** * Исходный массив * **');

k:=0;

for i:=1 to n do begin

a[i]:=Random (1001);

Write (a[i],' ');

if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc (k)

end;

Writeln;

Writeln ('Количество найденных элементов равно ', k)

end.