Pascal. Исправьте решение

[HappyR]

Найти сумму всех чисел в последовательности [m, n] (m < n), кратных 11.

var n,m,s,i:integer;
begin
write('n = ');
read(a);
write('m = ');
read(b);
s:=0;
for i:=n to m do
begin
if i mod 11=0 then
s:=s+i;
end;
write('s = ',s);
end.

Найти сумму всех делителей числа А

var n:integer;//число
     s:integer;//сумма
     i:integer;//возможные делители

s:=0;
for i:=1 to n do
if n mod i=0 then s:=s+i;

В десятичной записи числа «*3*» пропущены 2 цифры. Определите эти цифры, если известно, что число кратно 6.

 var i,j:integer;
  begin
    for i:=0 to 9 do
      for j:=0 to 9 do
      if (i*100+3*10+j) mod 6=0 then writeln(,i,j);
 end.

[Serge_Bliznykov]

write('m = ');
read(m);
write('n = ');
read(n);
s:=0;
for i:=m to n do
...

Найти сумму всех делителей числа А

решение у вас нормальное. только число N не забудьте ввести

  WriteLn('Введите число A:');
  Readln(n);

В десятичной записи числа «*3*» пропущены 2 цифры. Определите эти цифры, если известно, что число кратно 6.

тоже вполне себе сносное решение.
исправил пару мелких опечаток/недочётов:

var i,j:integer;
begin
  for i:=1 to 9 do
     for j:=0 to 9 do
        if (i*100+3*10+j) mod 6=0 then writeln(i,3,j);
end.