Для двух неравных чисел m и n определить какая из дробей m/n или n/m ближе к числу π . в первом случае число m удвоить, во втором удвоить число n .

const pi = 3.14159265358;

var

m,n : integer;

begin

readln(m,n);

if ((m/n - pi) < (n/m - pi)) then

writeln (2 * m)

else

writeln(2*n);

end.

Возможно туплю, ибо поздно уже. Но у меня получилось так