{
TASK:sqrt
LANG:Pascal
}
var
   x : extended;
   a,n : integer;
begin
readln(a, n);
x:=sqrt(a);
write(trunc(x), ',');
x:=frac(x);
while (n>0) do
begin
 n:=n-1;
 x:=x*10;
 write(trunc(x));
 x:=frac(x);
end;
end.
