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

Program INVERS ;
uses Crt,GB,ENEX,ALG;
label 1;
var n :integer;
A,B :matr;
d :real;
BEGIN
1:ClrScr;
GotoXY(10,2);
writeln(' ЋЎа йҐ­ЁҐ ¬ ваЁжл ');
write('n='); readln(n);
EN(4,n,n,A);
DET(n,A,d);
writeln('det=',d);
if abs(d)<0.000001 then
begin
writeln(' ¬ ваЁж  ўл஦¤Ґ­  !!!');
readln;
readln;
goto 1;
end else
INV(n,A,B);
writeln('®Ўа в­ п ¬ ваЁж ');
EX(n,n,B);
readln;
readln;
END.