Помогите пожалуйста)
1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран
2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.

random (41)

1)var L:array[1..9] of integer;    a:integer;beginfor a:=1 to 9 do readln(L[a]);for a:=1 to 9 do write(L[a],' ');end.2)  var L:array[1..22] of integer;    a:integer;beginrandomize;for a:=1 to 22 do L[a]:=random(40)+2;for a:=1 to 22 do write(L[a],' ');end.

{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }var L:array [1..9] of byte;    n,i:byte;begin  N:=9;{считываем с клавиатруры N чисел} writeln('введите масссив'); for i:=1 to n do read(L[i]); writeln; writeln('Массив:');  {вывод на экран массива} for i:=1 to n do write(L[i]:7);{7 позиций под число}end. {2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.} var K:array [1..22] of byte;    n,i:byte;begin  N:=22;randomize; for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]} writeln; writeln('Массив:');  {вывод на экран массива} for i:=1 to n do write(K[i]:7);{7 позиций под число}end.