Курсовые / 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.