URAL 1001 Reverse root

为了节约时间，我不翻译了。以后是这样。

[报告]

    就向URAL所说的，这道题目实在是太简单了。——不过我真的提交了N+次，被弄的纳闷无比。

程序CPP的，因为我不知道PASCAL的为什么会错掉：

// TASK: 1001 Reverse root
#include <cstdlib>
#include <iostream>
#include <cmath>
using namespace std;
double *s,k;
long n;
int main(int argc, char *argv[])
{
    s=new double[500000];//(double*)malloc(sizeof(double*)*100000);
    n=0;
    while (cin >> k)
          s[++n]=k;
    for (long i=n;i>0;i--)
        printf("%.4lf\n",sqrt(s[i]));
    free(s);
  //  system("PAUSE");
    return EXIT_SUCCESS;
}