Маленький стальной шарик упал с высоты 45 м. Сколько времени длилось его падение? Какое перемещение совершил шарик за первую и последнюю секунды своего движения? (g ≈ 10 м/с2.)

Массив одномерный из 10  элементов.
var a : Array [1..10] Of Real;
        I:integer;
Begin
For i:=1 to 10 do read (a[i]); {ввод элементов массива}
For i:=1 to 10 do {открыт цикл}
         If a[i] < 0 then a[i]:=0; {сравнение элемента массива с нулем и если да то замена}
For i:= 1 to 10 do write(a[i]); {вывод элементов массива}
End.