Begin
Integer i;
For i:=1 step 1 until 50 Begin
OutFloat(SQRT(i));
End;
End;