var k:real;
      i:integer;
  begin
  k:=sqrt(30)
 for  i:=1  to trunc(k) do                  //把trunc换成floattoint怎么不行  trunc是什么意思?????????
....................
............
  end;
end.