Ребятульки, срочно помогите пожалуйста) найти произведение элементов…

Var a: array [1… 10] of integer; i: integer; Pr: real; beginpr: =1; readln (a[1]); for i: =2 to 10 doa[i]: =sqrt (a[i-1]); for i: =1 to 10 doPr: =Pr*a[i]; writeln (Pr: 1:3); readln; end.