Составить программу для нахождения произведения элементов массива. В массиве 30 элементов. Все числа задаются с клавиатуры решить

var a:array[1..30] of real;

i: integer;

p:real;

begin

 p:=1;

 for i:=1 to 30 do

   readln(a[i]);

 for i:=1 to 30 do

   p:=p*a[i];

 writeln(p);

end.

Объяснение:

caps lock,shift

2000*2000=625 кб возможно но я неуверена