Написать программу которая выводит на экран k случайных денег. Посчитать сумму чисел кратных 3 и количество оканчивающихся на ноль

Program num; uses crt; var x,i,n:integer; pr,l:longint;begin textcolor(11);randomize;x:=random(1000,100000);writeln('Всего деньжат ', x);writeln('Впишите числа которые получились выше: ');readln(i);n:=i div 3; //или так i:=i div 3;writeln(n); // writeln(i);pr:=1;for l:=10 to n do // for l:=10 to i dopr:=pr*l;writeln('Нулей', pr);readln();end.