I do not understand when you have finished receiving data, and that if no effect then enter receive data never end, so never would show the results and would be an endless repetitive cycle.
now with that key, or as I have to request new data, since no effect enter then I have no idea how to stop the cycle does not specify how to stop it.
greetings.

We use 'eof' in pascal.

My code:
procedure do;
var     n:int64;
begin
        if eof then exit;
        read(n);
        do;
        writeln(sqrt(n):0:4);
end;

begin
        do;
end.



oh I see!

http://acm.timus.ru/forum/thread.aspx?space=1&num=1001&id=23490&upd=633934535278966250

Edited by author 18.07.2010 19:15

have you tested your program on your machine?

How can we use eof without opening file?? WTH with it? I can't understand anything! FPC 2.0 doesn't compiling it. And Embarcadero RAD Studio XE too! So, What The Hell with it?