Сгенератора случайных чисел на интервале от 0 до 100 получите целочисленный массив состоящий из 20 элементов

Program massiv;
const N=20;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
mas[i]:=random(100);
for i:=1 to N do
write(mas[i],' ');
end.