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

Можно с 3-мя переменными и циклом for написать. раза в 2 меньше получится текст

const q1 = -500;const q2 = 600;var kr7,kr3, z: integer;k, h : integer;beginh := q1;while h < q2 dobeginkr7 := h mod 7;if (h > 0) and (kr7 = 0) then begink := k +1;writeln('Число кратных ', h);end;h := h +1;end;writeln('Число кратных положительных ', k);h := q1; k:=0;while h < q2 dobeginif (h < 0)  then beginz:= z + h;kr3 := z mod 3;if (kr3 = 0)  then begink := k +1;writeln('Число кратных ', z);end;end;h := h +1;end;writeln('Число кратных 3 отрицательных ', k);end.