даны массивы
S1..S10-шифры строительно-монтажных управлений
R1..R10-объем выполнных за год работ в руб.
P1..P10- плановый объем работ в руб.
PREM- премиальный фонд для всех 10 СМУ.Распределить премию пропорционально проценту перевыполнения плана СМУ,не выполнившим план премия не начисляется.

s:= 0;
for i:=1 to m do if R[i]-P[i]>0 then s:= s+R[i]-P[i];
for i:=1 to m do begin
  writeln('СМУ ',s[i]:10,':  ');
  if (s>0) and (R[i]-P[i]>0) then writeln(PREM/s*(R[i]-P[i]):0:2) else write(0:0:2)
end;

спасибо)можешь составить блок схему,если тебя это не затруднит))