Курсовые / curstau / RT

 Program RT;
       uses Crt,GB,ENEX,RC;
       var n               :integer;
           l               :real;
           A,B,C,Q,P,R,Kr  :matr;

   begin
     ClrScr;
     writeln('        ђҐиҐ­ЁҐ га ў­Ґ­Ёп ђ€ЉЉЂ’€');
     write('n=');
     readln(n);
     writeln('   ‚Ґб®ў п ¬ ваЁж  Q');
     EN(4,n,n,Q);
     writeln('   ‚Ґб®ў п ¬ ваЁж  L');
     write(' l1=');
     readln(l);
     writeln('   ‘®Ўб⢥­­ п ¬ ваЁж   A');
     EN(7+n,n,n,A);
     writeln('   Њ ваЁж  гЇа ў«Ґ­Ёп  B');
     EN(8+2*n,n,1,B);
     writeln('   Њ ваЁж  ўл室  C');
     EN(9+3*n,1,n,C);
     RICC(n,l,A,B,Q,P,R);
     writeln('    ђҐиҐ­ЁҐ га ў­Ґ­Ёп ђЁЄЄ вЁ: ¬ ваЁж   P');
     EX(n,n,P);
     readln;
     readln;
     writeln('    Њ ваЁж  ॣг«пв®а  б®бв®п­Ёп  R');
     EX(1,n,R);
     readln;
     readln;
   end.