Найти ошибку: program zad6; var a: array [1..10] of integer; i,n,b: integer; begin read(n); if (n< =10) then begin for i: =1 to n do b: =random(n)+0; writeln(a[b]); end; end.

Если b будет равен нулю, то программа выйдет за границы массива
и после цикла for нужно ставить do begin т.к выполняется два оператора
b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;