Что не так? (процедура обязательна)procedure random(k:integer);var a:array[1..100] of integer;varl:integer;beginfor l:=1 to k do begina[l]:=random(100);writeln(a[l]);end;end;var v:integer;beginwrite('Как узнать сколько будет чисел?: ');readln(v);random;end.