СРОЧНО
Вывести массив из 10 положительных целых чисел. Отобразить на экране элементы массива, а рядом строку из звездочек равно значению элемента массива

var ar:array[1..10] of integer;i,j:integer;begin;randomize;for i:=1 to 10 dobegin;ar[i]:=random(1,27);write(ar[i],' ');for j:=1 to ar[i] dowrite('*');writeln;end;end.