2 Напишите программу для банкомата. В банкомате задан лимит в 200 000 тенге на выдачу наличных. Пользователь вводит сумму, которую хочет получить. Напечатать на экране «Сумма превышает лимит», если сумма, вееденная пользователем больше 200 000 тенге. Напечатать на экране «Получите деньги», если сумма, вееденная пользователем меньше либо равна 200 000 тенге. Программа получает на вход одно число – сумму введенную пользователем. Ввод переменной выполните с пояснением. [5]

1.
begin
write('  ');
var P:=ArrRandom(10,10,90).Println('     ');
var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray;
for var i:=0 to T.Length-1 do write(T[i]:7:2);
end.

Пример:
  50     37     37     15     40     86     64     41     53     46
  50.00  74.00  12.33  60.00   8.00 516.00   9.14 328.00   5.89 460.00

2.
begin
var k:=ReadInteger('k = ');
var a:=ArrRandom(10,-20,20).Println;
var m:=a.Where(x->x<0).Max;
writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k);
end.

Пример:
k =  5
15 10 -7 -13 -4 16 -12 -2 9 -12
Макс.отрицательное = -2, -2*5=-10