(35 ) доработать программу в pascal так, чтобы она выполняла вычисления n раз с разными исходными данными, используя оператор цикла for. переменную n ввести с клавиатуры.

var n: integer;
a,b,m: real;
begin
writeln('меню: ');
writeln('1.килограмм');
writeln('2.милиграмм');
writeln('3.грамм');
writeln('4.тонна');
writeln('5.центнер');
writeln('ваш выбор: ');
readln(n);
writeln('введите массу ');
readln(m);
case n of
1: writeln(' масса в кг =',m: 4: 2);
2: writeln(' масса в кг =',m*1000: 4: 2);
3: writeln(' масса в кг =',m/1: 4: 3);
4: writeln(' масса в кг =',m*1000: 4: 2);
5: writeln(' масса в кг =',m*100: 4: 2);
else writeln('такого номера единицы массы не существует');
end;
readln;
end.

#include <iostream>

typedef long long   ll;

using namespace std;

bool ll_is_valid(ll t, ll N, ll x, ll y)

{

return  t / x + (t - x) / y >= N;

}

ll f(ll N, ll x, ll y)

{

   ll R = 1;

   while (!ll_is_valid(R,N,x,y)) R *= 2;

ll L = R / 2;

while(R - L > 1)

{

 ll M   =   (L + R) / 2;

 if (!ll_is_valid(M,N,x,y)) {L = M;}

 else {R = M;}

}

return  R;

}

int  main()

{

ll N,x,y;

cin >> N >> x >> y;

if(x > y) swap( x, y );  

cout << f(N, x, y) <<  std::endl;

}

1) program Array16;

var

i:integer; // счетчик в цикле

N:integer;

a: array [1..10] of integer;

begin

writeln('Введите N (N<10)');

readln(N); // ввод размера массива

for i:=1 to N do

begin

write('a[',i,']=');

readln(A[i]); // ручной ввод значений массива

end;

writeln('Результат');

for i:=1 to N do

begin

// вычисление и вывод элементов в указанном порядке

write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);

end;

end.

2) Var A:array[1..100] of integer;

i,n:byte;

Begin

write('Введите n<=100: ');readln(n);

For i:=1 to n do

Begin

A[i]:=random(31);

write(A[i]:3);

End;

writeln;

For i:=1 to n div 2 do

write(A[i]:3,A[n-i+1]:3);

if n mod 2 <>0 then write(A[n div 2+1]:3);

End.