Напишите программу по заполнению массива из 30 ячеек случайными величинами от 40 до 100. Пожалуйста СРОЧНО

program a;

var

mas: 1..30,

ii: integer;

begin

 for ii := 1 to 30

   mas[ ii ] := 40 + random( 61 );

end.