Найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных целых чисел в интервале от -500 до 600. Помогите написать код в Паскале

Const q1 = -500;const q2 = 600;var kr7,kr3, z: integer;k, h : integer;beginh := q1;while h 0) and (kr7 = 0) then begink := k +1;writeln(Число кратных , h);end;h := h +1;end;writeln(Число кратных положительных , k);
h := q1; k:=0;while h end.