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

А после writeln в скобках так и писать

можно просто writeln(fir); writeln(sec); можно с текстом. Как больше нравится

почему то не работает

там точно правильно

Проверьте на http://pascalabc.net/WDE/

var fir, sec, i: integer;beginfor i:=-500 to 600 dobeginif (i>0) and (i mod 7 = 0) then fir:=fir+1;if (i<0) and (i mod 3 = 0) and (i mod 2 <> 0) then sec:=sec+i;end;writeln('Количество кратных 7 положительных чисел: ', fir);writeln('Сумма кратных 3 нечетных отрицательных чисел: ', sec);end.