Pascal.ABC
Известна зарплата каждого из N работников фирмы за каждый месяц первого квартала (квартал – это три месяца). Определить общую сумму, выплаченную за квартал всем работникам фирмы.

тогда сейчас

поправил

еще чутка поправил)

про J я уже сама сообразила сейчас, когда стала проверять)

огромное спасибо)

varn, s, i, j, k: integer;beginwriteln('Введите N');readln(n);s:=0;for j:=1 to 3 dofor i:=1 to n do  begin  writeln('Введите зарплату ', i, ' сотрудника за ', j, ' месяц квартала');  readln(k);  inc(s, k);  end;writeln('Сумма: ', s);end.