Написать программу, заполняющую массив из 10 элементов по следующему правилу: А(i) = (2*i – 1)/cos(i)

Помогите срочно!!!

var a:array[1..10] of real; i:integer;beginfor i:=1 to 10 doa[i]:=(2*i-1)/cos(i);for i:=1 to 10 dowriteln(i,'->',a[i]);readln;end.