Перевод из Pascal в Visual Basic

program kp;
Uses crt;
Const  x=3/4; y=1/2; N=10; h=1/4;
Var s1,f,s,u,u1,g,x_1,y_1: real;
    i : integer;
 
procedure Loop;
var f1,f2,f3,f4,f5:real;
begin
 
 y_1:=y;  x_1:=x; f:=0;
repeat
g:=random(10);
writeln('g=',g);
 
f1:=f;
if (g=0) or (g=4) then begin
 x_1:= x_1 + h;
 f1:=f1-0.25*h*h*(x_1*x_1+y_1*y_1);
 f:=f1;
 end;
 
f2:=f;
if (g=1) or (g=5) then begin
  y_1:= y_1 + h;
 f2:=f2-0.25*h*h*(x_1*x_1+y_1*y_1);
  f:=f2;
  end;
 
f3:=f;
if (g=2) or (g=6) then begin
  x_1:= x_1 - h;
  f3:=f3-0.25*h*h*(x_1*x_1+y_1*y_1);
  f:=f3;
  end;
 
f4:=f;
if (g=3) or (g=7) then begin
  y_1:= y_1 - h;
  f4:=f4-0.25*h*h*(x_1*x_1+y_1*y_1);
  f:=f4;
   end;
 
f5:=f;
if (g=8) or (g=9) then begin
   y_1:=y_1;
   x_1:=x_1;
   f5:=f5-0.25*h*h*(x_1*x_1+y_1*y_1);
   f:=f5;
     end;
until (x_1=0) or (x_1=1) or (y_1=0) or (y_1=1);
 
if y_1=1 then
s:=x_1*x_1;
if (y_1=0) or (x_1=1) then
s:=0;
if x_1=0 then
s:=y_1*y_1;
s1:=s1+s;
writeln('s=',s);
writeln('s1=',s1);
end;
 
begin
 clrscr;
 randomize;
 u:=0; u1:=0;
 for i:=1 to N do begin
 Loop;
 writeln('f=',f);
 u:=u+f+s;
 writeln('u=',u);
 end;
 
u1:=u/N;
 writeln('u1=',u1);
writeln('press any key');
 readkey;
END.