program Pascal;

var
i, randomNum, count: integer;

begin
count := 0;

randomize;

for i := 1 to 35 do
begin
randomNum := random(301) + 50; // генерация случайного числа в промежутке [50;350]

if (randomNum mod 3 = 0) and (randomNum mod 10 <> 2) then
count := count + 1;

end;

writeln('Количество чисел, кратных 3 и не заканчивающихся на 2: ', count);
end.