1001. Обратный корень

read(f,a);

var a:array[1..255] of real;
    i,j:integer;
begin
while not(seekeof) do
  begin
    inc(i);
    read(a[i]);
  end;
for j:=i downto 1 do
  writeln(sqrt(a[j]):0:4);
end.

var CON : TEXT;
c : char;
 
begin
 
Assign (CON, 'CON');
reset (CON);
 
while not eof (con)  do
    read (Con, c) ;
 
 
  readln;
end.

var CON : TEXT;
c : char;
i : integer;
s : string;
 
begin
 
i := 1;
 
Assign (CON, 'CON');
reset (CON);
 
while not eof (con)  do
begin
    read (Con, c) ;
    s[i] := c;
    i := i+1 ;
end;
 
s[0]:=chr(i); { Возможно, здесь i - 1, мне лень тестировать }
write (s);
 
  readln;
end.

var a:array[1..100] of integer;
    n,i:integer;
begin
n:=0;
while not seekeof do
 begin
  n:=n+1;
  read(a[n]);
 end;
writeln;
for i:=1 to n do
write(a[i],' ');
end.

var a:array[1..100] of char;