блок схема к программе

[emin313gs]

const nmax=100;
var z,sum:real;//вдруг будут большие суммы, примем тип real
n,i:byte;
begin
write('Количество сотрудников до ',nmax,' n=');
readln(n);
writeln('Введите зарплату за месяц:');
sum:=0;
for i:=1 to n do
begin
write('Сотрудник ',i,': ');
readln(z);
sum:=sum+z;
end;
write('Сумма зарплаты за месяц составила ',sum:0:0);//выводим как целое число
readln
end.

[Niro]

Ну, а где элементарная вежливость? Вроде помогите, объясните пожалуйста
Ну да ладно держите, но впредь...

[Don Karleone]

Сообщение от Niro

Ну, а где элементарная вежливость? Вроде помогите, объясните пожалуйста
Ну да ладно держите, но впредь...

он два поста с одной темой создал. Я ему уже выкладывал блок-схему.