Написать программу которая выводит на экран 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 do

pr:=pr*l;

writeln ('Нулей', pr) ;

readln () ;

end.