Определить размер квартплаты в корпоративном доме

program kr_6;
uses crt;
     const
          n=8;
     type
         s=array[1..n] of integer;
         sr=array[1..n] of real;
         ch=array[1..n] of char;
         fil=text;
     var
        sum1,sum2,sum3,i,l,k,plk,sump:integer;
        omp,sum4,sum5,opl:real;
        s1,s3,s4,s5:s;
        s2:ch;
        s6,s7:sr;
        F:fil;
        
     begin
l:=60000;
k:=200000;
s1[1]:=1; s1[2]:=14; s1[3]:=36; s1[4]:=11; s1[5]:=228; s1[6]:=35; s1[7]:=43; s1[8]:=51;
s2[1]:='-'; s2[2]:='+'; s2[3]:='+'; s2[4]:='-'; s2[5]:='+'; s2[6]:='+'; s2[7]:='-'; s2[8]:='-';
s3[1]:=1; s3[2]:=1; s3[3]:=3; s3[4]:=1; s3[5]:=2; s3[6]:=4; s3[7]:=3; s3[8]:=2;
s5[1]:=100; s5[2]:=318; s5[3]:=250; s5[4]:=24; s5[5]:=82; s5[6]:=66; s5[7]:=38; s5[8]:=51;
 {расчёт процентов по лифту}
for i:=1 to n do
if  s3[i]=1  then
s4[i]:=0;
 
for i:=1 to n do
if  s3[i]=2  then
s4[i]:=50;
 
for i:=1 to n do
if  s3[i]>2  then
s4[i]:=100;
{/расчёт процентов по лифту}
 
{сумма площади квартир и сумма процентов}
plk:=0;
sump:=0;
 
for i:=1 to n do
plk:=plk+s5[i];
 
for i:=1 to n do
sump:=sump+s4[i];
omp:=k/plk;
opl:=l/sump;
{/сумма площади квартир и сумма процентов}
 
{Квартплата}
for i:=1 to n do
s6[i]:=s5[i]*omp;
{/Квартплата}
 
{Общий расчёт}
for i:=1 to n do
s7[i]:=s6[i]+s4[i]*opl;
{/Общий расчёт}
{офисы}
for i:=1 to n do
if s2[i]='+' then
s7[i]:=s5[i]*k;
if s5[i]>100 then
s7[i]:=s5[i]*180000;
if s5[i]>300 then
s7[i]:=s5[i]*160000;
{/офисы}
{Суммы всего}
for i:=1 to n do
if  s2[i]='+' then
sum1:=sum1+1;
for i:=1 to n do
sum2:=sum2+s4[i];
for i:=1 to n do
sum3:=sum3+s5[i];
for i:=1 to n do
sum4:=sum4+s6[i];
for i:=1 to n do
sum5:=sum5+s7[i];
{/Суммы всего}
write('________________________________________________________________________________');
writeln('|Номер   |        |      |           |            |               |');
writeln('|квартиры|   Офис | Этаж |    Лифт   |   Площадь  |    Квартплата |   Доход');
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[1],'     |    ',s2[1],'   |   ',s3[1],'  |     ',s4[1],'     |     ',s5[1],'    |     ',s6[1]:2:2,'  | ',s7[1]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[2],'    |    ',s2[2],'   |   ',s3[2],'  |     ',s4[2],'     |     ',s5[2],'    |     ',s6[2]:2:2,'  | ',s7[2]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[3],'    |    ',s2[3],'   |   ',s3[3],'  |     ',s4[3],'   |     ',s5[3],'    |     ',s6[3]:2:2,'  | ',s7[3]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[4],'    |    ',s2[4],'   |   ',s3[4],'  |     ',s4[4],'     |     ',s5[4],'     |     ',s6[4]:2:2,'   | ',s7[4]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[5],'   |    ',s2[5],'   |   ',s3[5],'  |     ',s4[5],'    |     ',s5[5],'     |     ',s6[5]:2:2,'  | ',s7[5]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[6],'    |    ',s2[6],'   |   ',s3[6],'  |     ',s4[6],'   |     ',s5[6],'     |     ',s6[6]:2:2,'  | ',s7[6]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[7],'    |    ',s2[7],'   |   ',s3[7],'  |     ',s4[7],'   |     ',s5[7],'     |     ',s6[7]:2:2,'   | ',s7[7]:2:2);
write('--------------------------------------------------------------------------------');
writeln('|  ',s1[8],'    |    ',s2[8],'   |   ',s3[8],'  |     ',s4[8],'    |     ',s5[8],'     |     ',s6[8]:2:2,'  | ',s7[8]:2:2);
write('--------------------------------------------------------------------------------');
writeln('| Всего  |    ',  sum1,'   |      |     ', sum2, '   |     ', sum3, '    |     ', sum4,'    |', sum5:2:2);
write('________________________________________________________________________________');
 
 
 
end.