Решить по pascal abc, цикл while. c клавиатуры вводится число, ввод заканчивается числом 500. сколько чисел делится на 3?

Var col,ch:integer;
begin
writeln('введите числа, закончив ввод числом 500 ');
while (ch<>500) do begin
readln(ch);
if ch mod 3 =0 then col:=col+1;
end;
writeln('количество чисел кратных трём = ',col);
end.