помогите решить задачи на Delphi Срочно!

[BIS88]

1. Найти сумму целых положительных чисел, кратных 4 и меньших 100.

2. Даны натуральные числа n , g1 , ... ,gn. Найти те члены gi последовательности g1 , ... , gn ,которые при делении на 7 дают остаток 1,2 или 5.

3. Даны действительные числа а1,..,а30. Вычислить сумму а1 +а22 +...+а1010, не используя функцию exp. (2 и 10)

4.Написать программу, которая печатает true или false в зависимости от того, имеют три заданных числа одинаковую четность или нет

Вот 4 задачи которые нужно написать на Delphi. Помогите очень надо.

[Greblin]

1.

sum := 0;
for i := 4 to 96 do sum := sum + i;

2.

read(n);
for i := 1 to n do
  begin
  read(gi);
  if (gi mod 7 = 1) or (gi mod 7 = 2) or (gi mod 7 = 5) then
    write(gi,' ');
  end;

3. Уточните условие. Что за a1010?
4.

read(a, b, c);
writeln((odd(a) = odd(b)) and (odd(b) = odd(c)));

Обзовёте программы, объявите переменные и вставите begin end сами, чтобы хоть чуть-чуть мозги пошевелились

[puporev]

sum := 0;
for i := 4 to 96 do sum := sum + i;

Немного не так.
sum := 0;
for i := 4 to 96 do
if i mod 4=0 then sum := sum + i;

[Greblin]

Сообщение от puporev

Немного не так.
sum := 0;
for i := 4 to 96 do
if i mod 4=0 then sum := sum + i;

Сорри, недоглядел :-)

[xakkkkker]

procedure TForm1.Button1Click(Sender: TObject);
var
x,i:integer;
begin
x:=0;
for i:= 4 to 96 do
begin
if i mod 4=0 then
begin
x:=x+i;
memo1.Lines.Add(IntToStr(x));

end;
end;

end;

[BIS88]

Сообщение от Greblin

1.

3. Уточните условие. Что за a1010?

я и сам не пойму что это за a1010. это заданиев в электронном учебнике было, и мне как на зло попался этот вариант. Может опечатка в учебнике. А за все остальные задания Спасибо.

[Евгений5]

Сообщение от BIS88

3. Даны действительные числа а1,..,а30. Вычислить сумму а1 +а22 +...+а1010, не используя функцию exp. (2 и 10)

Помогите решить эту же задачу
Даны действительные числа а1,..,а30. Вычислить сумму а1 +а22 +...+а1010,
не используя функцию exp

Там где а22-это 2 в квадрате
Там где а1010-это 10 в десятой степени

[puporev]

const n=30;
var a:array[1..n] of real;
    s,p:real;
    i,j:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:4:1);
 end;
writeln;
s:=a[1];
for i:=2 to n do
 begin
  p:=1;
  for j:=1 to i do
  p:=p*a[i];
  s:=s+p;
 end;
write('S=',s);
readln
end.

[Евгений5]

Благодарю!