В отделе работают 15 человек. Их заработная плата колеблется от 4500 до

В отделе работают 15 человек. Их заработная плата колеблется от
4500 до 7800 рублей. Вывести ведомость
начисления зарплаты, используя генератор случайных чисел.

const pers = 15;
var a:word;
    i:byte;
    sum:real;

begin
  randomize;
  sum:=0;
  for i:=1 to pers do begin
    a:=random(45,78)*100;
    writeln('Труженик ',i:2,'. Заработная плата ', a);
    sum:=sum+a;
  end;
  writeln('Итого к оплате: ', sum:10);
end.