В общем проблема следующая, нужно написать задачу на решение системы методом простой итерации.
Был бы очень признателен, если бы помогли. Очень нужно.

Следующая система уравнений:

0.60x1-0.35x2-0.25x3=1.83
0.21x1-0.45x2-0.20x3=1.97
0.30x1+0.25x2+0.43x3=0.32

Чтобы например найти x1 нужно (1.83+0.35*x2+0.25*3)/0.6
И так далее. Нам нужно найти значения x1, x2, x3 и количество итераций.

program new;
var
x, x1,y,y1,z,z1,e,p:real;
n:integer;
begin
n:=0;
writeln('vvedite x,y,z,e');
readln(x,y,z,e);
repeat
x1:=(1.83+0.35*y+0.25*z)/0.6;
y1:=(1.97-0.21*x+0.20*z)/-0.45;
z1:=(0.32-0.30*x-0.25*y)/0.43;

begin
writeln('x= ' ,x:3:3,' y= ' ,y:3:3,' z= ' ,z:3:3,'  n= ',n);
readln;
end;
end.