Код Pascal:
1)
Var A,S:integer;
Begin
{Первый способ}
S:=0;
A:=7;
While A<=98 do
   Begin
   S:=S+A;
   A:=A+7
   End;
WriteLn('S = ',S);
{Второй способ}
S:=0;
For A:= 1 to 14 do
    S:=S+A*7;
WriteLn('S = ',S);
End.

2)
Var A,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Write('Остатки от деления чисел [80..100] на ',A,':');
For i:= 80 to 100 do
    Write(' ',i mod A)
End.

3)
Var
   A,B,dA,dB,d:integer;
Begin
WriteLn('Введите два натуральных числа');
ReadLn(A,B);
d:=A div 2;
if A>1 then dA:=1
else dA:=0;
While d>0 do
   Begin
   if A mod d = 0 then dA:=dA+1;
   d:=d-1
   End;
WriteLn('Количество делителей первого числа: ',dA);
d:=B div 2;
if B>1 then dB:=1
else dB:=0;
While d>0 do
   Begin
   if B mod d = 0 then dB:=dB+1;
   d:=d-1
   End;
WriteLn('Количество делителей второго числа: ',dB);
if dA>dB then WriteLn('Делителей больше у числа ',A)
else if dA     else WriteLn('У числел ',A,' и ',B,' равное количество делителей');
End.