Заполнить одномерный массив А из 10 элементов случайными числами из отрезка [-20,50].

Вот решение но почему 1-4 классы.

var mas:array of integer;

i, n:integer;

begin

readln (n);

setlength (mas, n);

for i:=0 to n-1 do begin

mas[i]:=random (71) - 20;

write (mas[i],' ');

end;

end.