Решите ! Информатика.

Задача 1.
Решить графическим !

Лягушка каждый последующий прыжок делает в два раза короче предыдущего. Достигнет ли она болота и за сколько прыжков. Длину первого прыжка задайте самостоятельно.

Задача 2.
Решение задачи программным !

Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
• сумму элементов, имеющих нечетное значение;
• вывести индексы тех элементов, значения которых больше заданного числа А; • количество положительных элементов, кратных К. ( К вводится с клавиатуры ).

P.S. Пишите в код с комментариями к задачам

type Cl = class
  a:integer;
  constructor Create(b:integer);
  procedure SetVal(b:integer);
  function GetVal:integer;
  procedure Sq;
end;

constructor Cl.Create(b:integer);
begin
  a := b;
end;

procedure Cl.SetVal(b:integer);
begin
  a := b;
end;

function Cl.GetVal:integer;
begin
  GetVal := a;
end;

procedure Cl.Sq;
begin
  if a < 0 then
    writeln('a ^ 2 = ', a * a)
  else
    writeln('Error');
end;

var
  Obj:Cl;
  a :integer;
begin
  write('a = ');
  readln(a);
  Obj := Cl.Create(a);
  Obj.Sq;
  Readln;
  Obj.Destroy;
end.

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

Var a,p: Real;
    n,i: Integer;

Begin
    ClrScr; {просто чтобы очистить экран можно и не использовать}
    Write('Type a: '); Read(a);
    Write('Type n: '); Read(n);
    for i:=1 to n do
    begin
        p:=p+(a*(a-i*n)*(a-n*n));
        {не совсем понятны три точки в условии}
    end;
    Writeln('p=', p:3:3); {количество знаков после запятой и общее}
    Readkey; {или можно использовать Readln;}
End.