Полезно почитать !!! - Pascal - Ответ 1128808

var
n,i,sum: integer;
begin
writeln('Введите отрицательное число');
readln(n);
for i:=n to 1
    do
      sum:=sum+i;
writeln('Ответ: ',sum);
end.

var
m,i,a,pol,otr: integer;
begin
writeln('Введите M');
readln(m);
for i:=1 to m
    do
      begin
      writeln('Введите ',i,'-ое число');
      readln(a);
      if a>=0
         then
             inc(pol)
         else
             inc(otr);
      end;
writeln('Положительных и нулей: ',pol);
writeln('Отрицательных: ',otr);
end.

var
m,n,sum,i: integer;
begin
writeln('Введите M');
readln(m);
writeln('Введите N');
readln(n);
if m>n
   then
       writeln('Ошибка! M>N');
for i:=m+1 to n-1 {если включая M и N то:}
    do            {for i:=m to n do}
      begin
      if i mod 5=0
         then
             sum:=sum+i;
      end;
writeln('Ответ: ',sum);
end.