найти количество кратных 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 < 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.