Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 78 стр.

     write('│    │ 2 │ 3   │ 4    │ 8   │ 11 │ 14 │');
     writeln('15-16│19-20│ 24 │26-30│');
     write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
     writeln('─────┼─────┼─────┼─────┤');
     write('│ 2 │19.0│19.16│19.25│19.37│19.4│19.42│');
     writeln('19.43│19.44│19.45│19.46│');
     write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
     writeln('─────┼─────┼─────┼─────┤');
     write('│ 3 │9.55│ 9.28│ 9.12│ 8.84│8.76│ 8.71│');
     writeln(' 8.69│ 8.66│ 8.64│ 8.62│');
     write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
     writeln('─────┼─────┼─────┼─────┤');
     write('│ 4 │6.94│ 6.59│ 6.39│ 6.04│5.93│ 5.87│');
     writeln(' 5.84│ 5.8 │ 5.77│ 5.74│');
     write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
     writeln('─────┼─────┼─────┼─────┤');
     write('│ 5 │5.79│ 5.41│ 5.19│ 4.82│ 4.7│ 4.64│');
     writeln(' 4.6 │ 4.56│ 4.53│ 4.5 │');
     write('├───┼────┼─────┼─────┼─────┼────┼─────┼');
     writeln('─────┼─────┼─────┼─────┤');
     write('│ 6 │5.14│ 4.76│ 4.53│ 4.15│4.03│ 3.96│');
     writeln(' 3.92│ 3.87│ 3.84│ 3.81│');
     write('└───┴────┴─────┴─────┴─────┴────┴─────┴');
     writeln('─────┴─────┴─────┴─────┘');
    end;
procedure OUT_F_H_L(PR:integer);
   begin
   if PR=73 then
     begin
       writeln(F0,'┌────┬─────────────────────┐');
       writeln(F0,'│    │        Значение      │');
       writeln(F0,'│ J ├──────────┬──────────┤');
       writeln(F0,'│    │   F(J)    │   Z(J)   │');
     end;
   if PR=74 then
     begin
       writeln(F0,'┌────┬────────────────────────────────┐');
       writeln(F0,'│    │             Значение           │');
       writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
       writeln(F0,'│    │   F(J)    │   H(J)   │   Z(J)  │');
     end;
   if PR=75 then
     begin
      write(F0,'┌────┬──────────────────────────');
      writeln(F0,'─────────────────┐');
      write(F0,'│    │                   Значение');
      writeln(F0,'                  │');
      write(F0,'│ J ├──────────┬──────────┬────');
      writeln(F0,'──────┬──────────┤');
      write(F0,'│    │   F(J)    │   H(J)   │    ');
      writeln(F0,'L(J) │    Z(J)    │');
     end;
   if PR=73 then
     begin
       for J:=1 to X do
         begin
           writeln(F0,'├────┼──────────┼──────────┤');
           writeln(F0,'│ ',J:2,' │',F[J]:10,'│',Z[J]:10,'│');
         end;
           writeln(F0,'└────┴──────────┴──────────┘');
     end;
   if PR=74 then
     begin
       for J:=1 to X do

                                      78