var
   i,n:integer;
   x,x0,h,y,y2,y3,m1,m2,m3,m4:real;

function f(x,y:real):real;
begin
f:=y/x/x/x;
end;

function eF(x:real):real;
begin
eF:=exp(-1/2/x/x+1/2);
end;

begin
write('saakuma x = ');
readln(x0);
write('solis = ');
readln(h);
write('punktu skaits = ');
readln(n);
x:=x0;
y:=eF(x);
y2:=y;
y3:=y;

writeln;write('  /');for i:=1 to 66 do write('=');write('\');writeln;
writeln(' |     x    |  Prec.atr.  |   Eilera    | Eilera-Kosi | Runges-Skutta |');
write(' |');for i:=1 to 68 do write('=');write('|');writeln;
for i:=1 to n do
    begin
    writeln(' | ',x:6:1,'   |  ',eF(x):8:4,'   |  ',y:8:4,'   |  ',y2:8:4,'   |  ',y3:8:4,'     |');

    y:=y+h*f(x,y);

    m1:=f(x,y2);
    m2:=f(x+h,y2+h*m1);
    y2:=y2+h/2*(m1+m2);

    m1:=f(x,y3);
    m2:=f(x+h/2,y3+h/2*m1);
    m3:=f(x+h/2,y3+h/2*m2);
    m4:=f(x+h,y3+h*m3);
    y3:=y3+h/6*(m1+2*m2+2*m3+m4);

    x:=x+h;
    end;
write('  \');for i:=1 to 66 do write('=');write('/');writeln;

readln;
end.