Помогите сделать программу на Паскале

[StudUL]

Начало массив A[0:11];
Целый I, k,p,m,n,z,z1,z2,z3;
Вещественный B, Tad, xn, N, kN, a, Qn, Nj, Nmax, epsilon,t,h,f,ad;
Kinetic: m:=1; ввод (A);
Program: B:=A[1]; Tad:=A[2]; xn:=A[3];
Qn:=A[4]; kN:=A[5]; Nmax:=[6];
Epsilon:=A[7]; t:=A[8]; k:=A[9];
p:=A[10]; a:=A[11]; вывод (A);
Parametors: Nj:=0.0; N:=kN; ad:=Tad/a;
n:=p*k; h:=1.0/n; z1:=p+2;
z2:=2*z1; z3:=3*z1; z:=z3+2;
Начало массив Q, T, x[0:n], Res[0:z];
Вещественный r,r1,r2,r3,R1,R2,rT,rT1, rT2,
Процедура F(x,T); значение x, T;
Начало
Конец;
r1:=t/n; r2:=t*B; R1:=1.0+r1; r3:=1.0/R1;
r:=1.0(R1+r2); rT1:=r1/a; rT2:=r2/a;
rT:=1.0/(1.0+rT1+rT2); Res[z1]:=0.0;
Rea[z2]:=0.0; Res[z3]:=0.0; R1:=Qn;
Для i:=0 шаг 1 до n цикл
Начало x[i]:=xn; Q[i]:=Qn; T[i]:=Qn; конец;
Layer: для i:=n-1 шаг-1 до 0 цикл
Q[i]:=r*(Q[i]+r1*Q[i+1]+r2*T[i]);
T[0]:=Q[0];
Для i:=1 шаг 1 до n цикл
Начало F(x[i], T[i]);f:=t*f;
X[i]:=r3(x[i]+r1*x[i-1]+f);
T[i]:=rT*(T[i]+rT1*T[i-1]+rT2*Q[i]+ad*f);
Конец;
Если x[n]>1.0 то
Начало t:=t*0.5; на parametors
Конец;
Nj:=Nj+1.0; R2:=abs (T[n]-R1);
R1:=T[n];
Если R2<epsilon то
Начало N:=Nmax на print
Конец;
Если Nj<N то на layer;
Print: N:=N+kN;
Для i:=1 шаг 1 до p+1 цикл
Начало целый r;
r:=k*(i-1); Res[i]:=Q[r];
Res[z1+i]:=T[r]; Res[z2+i]:=x[r] конец;
Res[z3+1]:=Nj; Res[z3+2]:=t;
Вывод (Res);
Если N<=Nmax то на layer
Конец;
Next variant: если A[0]>0.0 то
Начало M: ввод (i); если i<0 то на program;
Ввод (R2); на M
Конец;
Конец.

[maladoy]

а тз то есть????

[StudUL]

Нужно перевести программу на Паскаль.

[maladoy]

а условие к первой задаче есть????

[StudUL]

Нет, условия не дали.

[maladoy]

а чего она хоть делает то!?

[StudUL]

Определяет температуру на выходе из слоя катализатора.