Очень нужна помоощь!! Помогите!! см. фото. Задачки в паскале

Код Pascal:
1)
Var A,S:integer;
Begin
1-ый способ
S:=0;
A:=7;
While Alt;=98 do
   Begin
   S:=S+A;
   A:=A+7
   End;
WriteLn('S = ',S);
2-ой способ
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 Agt;1 then dA:=1
else dA:=0;
While dgt;0 do
   Begin
   if A mod d = 0 then dA:=dA+1;
   d:=d-1
   End;
WriteLn('Количество делителей первого числа: ',dA);
d:=B div 2;
if Bgt;1 then dB:=1
else dB:=0;
While dgt;0 do
   Begin
   if B mod d = 0 then dB:=dB+1;
   d:=d-1
   End;
WriteLn('Количество делителей второго числа: ',dB);
if dAgt;dB then WriteLn('Делителей больше у числа ',A)
else if dAlt;dB then WriteLn('Делителей больше у числа ',B)
     else WriteLn('У числел ',A,' и ',B,' одинаковое количество делителей');
End.