Курсовая работа: Метод Жордана Гаусса

{073} begin

{074} k:=n;

{075} if k>4 then

{076} k:=4;

{077} t:=1;

{078} z:=1;

{079} h:=1;

{080} m8:wind(2,2,35,k*k+k+3,'Ввiд елементiв');

{081} for i:=z to n do

{082} for j:=h to n+1 do begin

{082} gotoxy(3,t+1);

{084} if j<=n then write ('Елемент a[',i,j,']=')

{085} else write ('Вiльний елемент a[',i,j,']=');

{086} readln(A[i,j]);

{087} if t>19 then begin

{088} t:=1;

{089} z:=i;

{090} if j<(n+1) then h:=j+1

{091} else begin

{092} z:=i+1;

{193} h:=1;

{194} end;

{195} clrscr;

{196} goto m8;

{197} end;

{198} if t<_ then begin

{199} t:=t+1;

{100} z:=1;

{101} h:=1;