var x,y,k,b:real;
BEGIN
read(k,b);
writeln('x=', b/(1-k), ' y=', b/(1-k));
END.
а ты уверен что вторая задача не алимпиадная?
var x,y,k,b:real;
BEGIN
read(k,b);
writeln('x=', b/(1-k), ' y=', b/(1-k));
END.
а ты уверен что вторая задача не алимпиадная?