что тут не так?
Uses crt;
Const N=20;
Var a:array [1..N] of integer; i:integer;
Begin
 clrscr;
 randomize;
 for i:=1 to N do a:=random(100);
 Redln(a);
 Writeln('Элементы масива:',a);
End.

спасибо большое

Надо в цикле писать a[i], а не аДа и ниже тоже использовать а[i] и циклuses  crt;const  N = 20;var  a: array [1..N] of integer; i: integer;begin  clrscr;  randomize;  for i := 1 to N do a[i] := random(100);  Write('Элементы масива: ');  for i := 1 to N do Write(a[i]:4);end.

Во-первых, добавить предпоследнюю строчку readkey;Во-вторых,(Redln пишется Readln) Readkey в программе лишнее, так как переменная a[i]   определяется случайным образомВ-третьих, переменную а в местах после randomize заменить на a[i]Далее, оператор цикла надо сделать полным,иначе мы увидим только одно число из 20  Для этого надо добавить после оператора do слово begin и третью строку снизу end;  перед предпоследней добавленной readkey;