{ В отделе работают 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.