Напечать список заводов, у которых экономия электроинергии составила более 5% - Turbo Pascal - Ответ 2537366

uses crt;
const n=3;
      line='---------------------------------------------------------------------';
      shap='| Наименование завода | Лимит,кВт/ч | Израсходовано | Сэкономлено,% |';
var pr: array [1..n] of string[20];
    l,r: array [1..n] of real;
    i,k,imax: byte;
    smax: real;
    
begin
writeln('Внесите данные о расходе электроэнергии');
smax:=0;
for i:=1 to n do
    begin
    write('Наименование ',i,' завода: '); readln(pr[i]);
    write('Лимит электроинергии кВт/ч: ');readln(l[i]);
    write('Израсходованная электроинергия кВт/ч: '); readln(r[i]);
    if (l[i]-r[i])*100/r[i]>smax then
       begin
       smax:=(l[i]-r[i])*100/r[i];
       imax:=i;
       end;
    end;
if smax=0 then writeln('Нет заводов, экономия у которых превысила 5 %') else
   begin
   writeln('Заводы, экономия у которых превысила 5 %');
   writeln(line);
   writeln(shap);
   writeln(line);
   for i:=1 to n do
       if (l[i]-r[i])*100/r[i]>5 then
          begin
          inc(k);
          writeln('|',pr[i]:20,'|':2,l[i]:12:2,'|':2,r[i]:12:2,'|':4,(l[i]-r[i])*100/r[i]:10:2,'|':6);
          end;
   writeln(line);
   writeln('Всего ',k,' завод (а/ов)');
   writeln('Максимальная экономия у завода "',pr[imax],'" составила ',smax:0:2)
   end;
readln;
end.