Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 65 стр.

 writeln('     Переложение с языка Бейсик программ GGL3,NV1.');
 writeln('          Разработка Черного А.А.');
 writeln('       Author Chernyy Anatoly Alekseevech.');
 writeln(' Введите имя файла для вывода resultant (без расширения)');
 readln(NAME);
 Assign(F0, (NAME+'.dat'));
 Rewrite(F0);
 writeln(F0,' Выполнение программы математического моделирования');
 writeln(F0,' tpgl1_1(tnv4_1). Программа на языке Турбо‐Паскаль,');
 writeln(F0,'         X=2, X=4, X=8, _X=16_, X=32.');
 writeln('          X=2, X=4, X=8, _X=16_, X=32.');
 writeln(F0,'      Author Chernyy Anatoly Alekseevech.');
 J:=0;X:=0;F3:=0;F4:=0;H3:=0;H4:=0;
 L3:=0;L4:=0;K3:=0;K4:=0;K5:=0;
 K7:=0;K8:=0;K0:=0;X0:=0;Y0:=0;J5:=0;
 J6:=0;J9:=0;S:=0;
 writeln('Если X=0, то выход из программы');
 write('X=');readln(X);
 writeln(F0,'X=',X);
 for J:=1 to X do
   begin
    F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0; KK5[J]:=0;
    KK6[J]:=0; KK7[J]:=0; J7[J]:=0; J8[J]:=0;
    JJ9[J]:=0;
   end;
case X of
2: begin
   vvod21;
   GB2480(A1,B1,J1,V1);
   writeln(F0,'V1=',V1);
   writeln('V1=',V1);
  end;
4: begin
   vvod21;
   GB2480(A1,B1,J1,V1);
   writeln(F0,'V1=',V1);
   writeln('V1=',V1);
   vvod22;
   GB2480(A2,B2,J2,V2);
   writeln(F0,'V2=',V2);
   writeln('V2=',V2);
   end;
8: begin
   vvod21;
   GB2480(A1,B1,J1,V1);
   writeln(F0,'V1=',V1);
   writeln('V1=',V1);
   vvod22;
   GB2480(A2,B2,J2,V2);
                                                                        65