программа для вычисления корней системы методом Гаусса на алгоритмическом языке Pascal.

const e=0.0001;
var
  x1,x11,xx1,x2,x22,xx2,x3,x33,xx3,x4,x44,xx4:real;
  p1,p2,p3,p4:real;
  sh:integer;
begin
  x1:=1.5;
  x2:=-0.8;
  x3:=-3;
  x4:=-2;
  sh:=0;
  
  x11:=1.5-1.75*x22+2.25*x33-0.5*x44;//здесь свои формулы
  x22:=-0.8+0.4*x11-1.8*x33+0.4*x44;//здесь свои формулы
  x33:=-3+10*x11-7*x22+8*x44 ;//здесь свои формулы
  x44:=-2-5*x11+1*x22+0.5*x33;//здесь свои формулы
  
 
 repeat
 
  p1:=x11;
  p2:=x22;
  p3:=x33;
  p4:=x44;
 
 
  x11:=x1-1.75*x22+2.25*x33-0.5*x44;//здесь свои формулы
  x22:=x2+0.4*x11-1.8*x33+0.4*x44;//здесь свои формулы
  x33:=x3+10*x11-7*x22+8*x44 ;//здесь свои формулы
  x44:=x4-5*x11+1*x22+0.5*x33;//здесь свои формулы
  
  sh:=sh+1;
 
  xx1:=abs(p1-x11);
  xx2:=abs(p2-x22);
  xx3:=abs(p3-x33);
  xx4:=abs(p4-x44);
 
  writeln('--------ШАГ',sh,'-----------');
  writeln('Ответ Х1: ',x11:0:5);
  writeln('Ответ |x0-x1|: ',xx1:0:5);
  writeln('-------------------------');
  //x1:=x11;
  writeln('Ответ Х2: ',x22:0:5);
  writeln('Ответ |x0-x2|: ',xx2:0:5);
  writeln('-------------------------');
 // x1:=x22;
  writeln('Ответ Х3: ',x33:0:5);
  writeln('Ответ |x0-x3|: ',xx3:0:5);
  writeln('-------------------------');
   //x1:=x33;
  writeln('Ответ Х4: ',x44:0:5);
  writeln('Ответ |x0-x4|: ',xx4:0:5);
  writeln('-------------------------');
  writeln('****************************');
 // x4:=x44;
 
 
  until (xx1<e) and (xx2<e) and (xx3<e) and (xx4<e);
end.