Для двух неравных чисел 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.

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

Program a; var a,b,c,s: integer; begin write('введите кол-во чисел в последовательности: '); readln(a); for c: =1 to a do begin write('введите число: '); readln(b); if (b mod 10=3) then s: =s+b; write(b,' '); end; writeln('сумма  чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти  на экран  выводится последовательность чисел через пробел и сумму  чисел, оканчивающихся на 3 program b; var a,b,s: integer; begin write('введите кол-во чисел в последовательности: '); readln(a); for c: =1 to a do b: =random(300)+1; if (b mod 10=3) then s: =s+b; write(b,' '); end; writeln('сумма  чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится   только  кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно.  на экран  выводится последовательность чисел через пробел и сумму  чисел, оканчивающихся на 3