составить код и блок схему.

[AntoxaS1]

в паскале и маткаде составить программы решения методами итераций и Зейделя в которых пользователь вводит число итераций (решений) М, программы проводят введенное число итераций (решений), и выводят в качестве результата полученную точность решения Е, в каждом методе выполнить сравнение полученных результатов с решением по методу Гаусса.
program PR_INER;
const
E=0.00001;
N=3;
vAr
A: Array [1..N,1..N] of real;
B: Array [1..N] of real;
x1: Array [1..N] of real;
x0: Array [1..N] of real;
H: Array [1..N] of real;
S: real;
i,j: integer;
f: text;
Label r;
Begin
Writeln('Исходная');
Assign(f,'C:\Users\user\Desktop\2 лаб\help.txt');
Reset (f);
For i:=1 to N do
Begin
For j:=1 to N do
Read (f,A[i,j]);
Read (f,B[i]);
End;
Close (f);
For i:=1 to N do
Begin
For j:=1 to N do
Write (A[i,j]:4);
Writeln ( B[i]:4);
End;
Writeln('Преобразованная');
Assign (f,'C:\Users\user\Desktop\2 лаб\преобразованная.txt');
Reset (f);
For i:= 1 to N do
Begin
For j:= 1 to N do
Read (f,A[i,j]);
Read (f,B[i]);
Readln (f,x0[i]);
End;
Close (f);
For i:=1 to N do
Begin
For j:=1 to N do
Write (A[i,j]:4);
Writeln ( B[i]:4);
End;
Writeln ('Начальные: ':4);
For i:= 1 to N do
Writeln (x0[i]:4);
R:
For i:=1 to N do
Begin
S:=0;
For j:=1 to N do
If i<>j then
S:=S+A[i,j]*x0[j];
X1[i]:=(B[i]-S)/A[i,i];
H[i]:=abs(x1[i]-x0[i]);
End;
For i:=1 to N do
X0[i]:=x1[i];
For i:= 1 to N do
If H[i]>E then
Goto r;
Writeln('Ответ:':4);
For i:=1 to N do
Writeln('x':4,i,'=', x1[i]:0:15);
End.
program ZEIDEL;
const
E=0.00001;
N=3;
vAr
A: Array [1..N,1..N] of real;
B: Array [1..N] of real;
x1: Array [1..N] of real;
x0: Array [1..N] of real;
H: Array [1..N] of real;
S: real;
i,j: integer;
f: text;
Label r;
Begin
Writeln('Исходная');
Assign(f,'C:\Users\user\Desktop\2 лаб\help.txt');
Reset (f);
For i:=1 to N do
Begin
For j:=1 to N do
ReAd (f,A[i,j]);
ReAd (f,B[i]);
End;
Close (f);
For i:=1 to N do
Begin
For j:=1 to N do
Write (A[i,j]:4);
Writeln ( B[i]:4);
End;
Writeln('Преобразованная');
Assign (f,'C:\Users\user\Desktop\2 лаб\преобразованная.txt');
Reset (f);
For i:= 1 to N do
Begin
For j:= 1 to N do
Read (f,A[i,j]);
Read (f,B[i]);
Readln (f,x0[i]);
End;
Close (f);
For i:=1 to N do
Begin
For j:=1 to N do
Write (A[i,j]:4);
Writeln ( B[i]:4);
End;
Writeln ('Начальные: ':4);
For i:= 1 to N do
Writeln (x0[i]:4);
R:
For i:=1 to N do
Begin
S:=0;
For j:=1 to N do
If i<>j then
S:=S+A[i,j]*x0[j];
X1[i]:=(B[i]-S)/A[i,i];
H[i]:=abs(x1[i]-x0[i]);
X0[i]:=x1[i];
End;
For i:= 1 to N do
If H[i]>E then
Goto r;
Writeln('Ответ:':4);
For i:=1 to N do
Writeln('x':4,i,'=', x1[i]:0:15);
End.