var r,ans:integer;
k,p:real;
begin
write('K ='); readln(K);
write('P ='); readln(P);
p:=p/100;
r:=0;
while K>P do
begin
k:=k-p;
r:=r+1
end;
ans:=r*r;
writeln(ans);
end.
var r,ans:integer;
k,p:real;
begin
write('K ='); readln(K);
write('P ='); readln(P);
p:=p/100;
r:=0;
while K>P do
begin
k:=k-p;
r:=r+1
end;
ans:=r*r;
writeln(ans);
end.