мозно как число

из массива округлить и перевести в интегер чтоби мозно било в число ФОР его исползовать

не берёт у мена такого

извени

мне надо что би вводиш 10 чисел реал и он виводил тебе строчку звездочек такое зе какое ти ввел число . если ввел не целое число он его округлял би.

for vopros := 1 to 10 do begin
  write (vopros,' Vvedite chislo : '); readln(nums[vopros]);

  for loop := 1 to trunc(nums[vopros]) do write('*');
  writeln(' ',nums[vopros]:10:5);
end;

СПАСИБО! 
а мозно есо сделать так чтоб если введино число болсе 75 звездочки писались до 75 и потом перексодили на другю строку

for vopros := 1 to 10 do begin
  write (vopros,' Vvedite chislo : '); readln(nums[vopros]);

  for loop := 1 to trunc(nums[vopros]) do begin
    write('*');
    if loop mod 75 = 0 then writeln;
  end;
  writeln(' ',nums[vopros]:10:5);
end;

 болсое спасибо ! 

мозете проверить транслит не работает