Дифф. уравнения. Блок-схема

[fos1k]

Пожалуйста помогите нарисовать простенькую блок-схему для данного кода (метод Эйлера, и метод Рунге-Кутта)
можно только для какой то одной процедуры, не принимая во внимание наличие второй.

Program task;
uses crt;
Type Funct=Function(s,s1:real): real;
Var x,y:real;
Function F (x,y:real):real;
Begin
F:=exp(-x*x-y*y);
End;
procedure Eyler(x,a,b,y,h:real);
var n:integer;
begin
writeln('Reshenie zadachi metodom Eylera:');
Writeln('  X ','    Y ');
repeat
y:=y+h*f(x,y);
x:=x+h;
writeln (x:6:2,y:8:4);
until x>b;
readln;
end;
procedure RK(x,a,b,y,h:real);
var k1,k2,k3,k4:real;
begin
writeln('Reshenie zadachi metodom Runge-Kutta:');
writeln('  X ','    Y ');
repeat
k1:=f(x,y);
k2:=f(x+h/2,y+h*k1/2);
k3:=f(x+h/2,y+h*k2/2);
k4:=f(x+h,y+h*k3);
y:=y+h/6*(k1+2*k2+2*k3+k4);
x:=x+h;
writeln(x:6:2,y:8:4);
until x>b;
Readln;
End;
Begin
Clrscr;
writeln('Reshenie diff. uravneniya exp(-x^2-y^2)');
writeln('========================');
x:=0;
y:=1;
Eyler(x,0,1,y,0.1);
RK(0,0,1,1,0.1);
End.