Помогите решить задачу по Pascal ABC, цикл while. C клавиатуры вводится число, ввод заканчивается числом 500. Сколько чисел делится на 3?

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