Найти сумму и количество чисел в интервале от - 20 до 20 кратных m

program zz1;

var a, n, i, m:integer; / / задаем переменные целого типа

begin

write (' введите заданное m '); / / вводим с клавиатуры число

read (m);

for i:=-20 to 20 do / / организуем цикл, в котором переберем все числа в интервале от - 20 до 20

begin

if (i 0) and (i mod m = 0) then begin n:=n + i; a:=a + 1; end; / / проверяем, если число делится на m без остатка, то добавляем его в сумму и считаем количество

end;

writeln (' сумма чисел в интервале от - 20 до 20 кратных m = ', n); / / выводим ответ

write (' количество чисел в интервале от - 20 до 20 кратных m = ', a);

end.