Hi
Please, help me with this one:
Program Eyler;
Uses
Crt;
Const
H=0.1;
Var
X,y:array[0..100] of real;
I:integer;
Function f(x,y:real):real;
Begin
F:=0.218*(x*x+sin(1.6*x)+0.718*y);
End;
Begin
Clrscr;
For i:=0 to 9 do
Begin
X[0]:=0.2; y[0]:=1.2;
X[i+1]:=x[i]+h;
Y[i+1]:=y[i]+f(x[i],y[i])*h; {Eiler's formula}
Writeln (x[,I,]=, x[i]:3:2);
Writeln (y[,I,]=, y[i]:3:2);
End;
Readln;
End.

Results
Х[0]=0.20 y[0]=1.20
Х[1]=0.30 y[1]=1.29
Х[2]=0.40 y[2]=1.40
Х[3]=0.50 y[3]=1.52
Х[4]=0.60 y[4]=1.65
Х[5]=0.70 y[5]=1.79
Х[6]=0.80 y[6]=1.95
Х[7]=0.90 y[7]=2.12
Х[8]=1.00 y[8]=2.31
Х[9]=1.10 y[9]=2.52
Х[10]=1.20 y[10]=2.75

Thanks.