Перевести из C++ в VBA

[bewagogame]

Нужно перевести в VBA:
#include <iostream>
using namespace std;
int main()
{
int k = 0, z; // kolvo iteratsui
double y, y1, y0, x, eps;
cout << " input x = ";
cin >> x;
cout << " eps = ";
cin >> eps;
y0 = x;
y1 = (y0 + x / y0) / 2;
y = sqrt(x);
while (y1 - y > eps)
{
y0 = y1;
y1 = (y0 + x / y0) / 2;
k++;
}
cout << " y = " << y << endl << " y1 = " << y1 << endl;
cout << "k = ";
system("pause");
return 0;
}

[alexcoder]

bewagogame, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[bewagogame]

закрывайте спасибо

[p51x]

Только прога неправильная....