Составьте программу pascal abc,которая вычисляет количество чисел кратных 6. Рандом.

var a,i,crat: Integer;
begin
WriteLn('введите количество цифр');
readln(a);
Randomize();
for i:=1 to a do
begin
i:=Random(40);
writeln(i);
if (i mod 6 =0) then inc(crat);
end;
writeln('количкство чисел кратных 6=',crat);
end.