var
    a,b,c,d,e,f,g,h : real
begin
    read(a,b,c,d);
    e := sqrt(a);
    f := sqrt(b);
    g := sqrt(c);
    h := sqrt(d);
    writeln(h:0:4);
    writeln(g:0:4);
    writeln(f:0:4);
    writeln(e:0:4);
end.
why is my answer wrong?

Have you read task? Why no? You should try.

>Input
> The input stream contains a set of integer numbers. The numbers are
> separated by any number of spaces and line breaks. A size of the input
> stream does not exceed 256 KB.

Edited by author 13.04.2016 13:14

i racked my brain, but i unable found solution so can i look your source code in pascal?

Sure no.
1) Why do you think I know pascal?
2) Problem is 2nd easiest here. You should be able to solve it yourself.

What problem do you have?

How to read numbers from stream?
http://acm.timus.ru/help.aspx?topic=pascal
"How to read input data until the end of stream" topic

How to estimate max input size?
It's about 256K/2 numbers.

How to print results in reverse order?
Pff. Give up for a while and learn programming.

Edited by author 13.04.2016 14:00

Where the stop position if there is only one input? I am confused, please explain the problems.