Задачи на Циклы Опции

[Mimosa]

Здравствуйте!!не могли бы вы мне помочь в решении 2х задач на Паскале.Для меня они нерешаемые!Плиз,помогите все,кто может!заранее очень признательна!
Задача №1
Составить программу нахождения суммы положительных нечетных чисел<100

Задача №2
Составить программу нахождения суммы целых положительных чисел из промежутка от А до В кратных 4.Значение А и В вводятся с клавиатуры!!


Жду ответа!!

[Sto]

Думаю так будет работать

Var
   A, B, Sum, i : Integer;
Begin
   Write('Please, enter A -> ');
   ReadLn(A);
   Write('Please, enter B -> ');
   ReadLn(B);
   Sum := 0;

   For i := A To B Do
   Begin
      If (i > 0) and ((i mod 4) = 0) Then
      Sum := Sum + i;
   End;
   WriteLn('Sum = ',Sum);
   ReadLn;
End.

Главное чтобы A было меньше B.