Проанализировать текст программы.найти ошибки.Записать исправленный вариант. Найти произведение 60 элементов массива,записанных случайным образом,числа задаются в интервале от 1 до 300. const n=300 var p,i:integer a:array [1..300] of integer, begin for i=1 to p do; a[i]:= random (300); write (a[i]) p:=0; for i=1 to n do p:=p*a[n]; writeln (p=,p); end.