program threeNotDivisibleByThreeEndingWithThree;

uses crt;
var
n, i, count, product: integer;

begin
clrscr;
randomize;

write('Enter the number of random numbers to generate: ');
readln(n);

count := 0;
product := 1;

for i := 1 to n do begin
// Generate random number between 0 and 60 inclusive
var randomNumber := random(61);
write(randomNumber, ' ');

if (randomNumber mod 3 <> 0) and (randomNumber mod 10 = 3) then begin
count := count + 1;
product := product * randomNumber;
end;

end;

writeln;
writeln('Product of numbers not divisible by 3 and ending with 3: ', product);
end.