Скласти програмний код. Клієнт поклав у банк певну сумму грошей. Щорічно банк додає до суми 11% від суми, що зберігається на рахунку після попереднього року. Визначте суму ,, яка буде на рахунку через 3 роки

Расстояние между экраном и глазами должно быть не менее 45 сантиметров. После каждых 40 минут, проведённых за компьютером, необходимо делать пятнадцатиминутный перерыв, смотреть вдаль, делать гимнастику для глаз. Яркость экрана должна быть оптимальной для глаз, контраст должен быть сбалансированным.

В комнате, где вы работаете, должно быть правильное освещение, свет должен падать с левой стороны. После яростного печатания на клавиатуре лучше всего делать пальчиковую гимнастику, сжимать и разжимать пальцы.

Следите, чтобы дыхание во время работы было естественным, не затаённым. Воздух в комнате должен быть свежим и чистым.

Прекращайте работу при малейших признаках утомления.

После каждого часа работы за компьютером должна быть физическая активность - прогулка,  игра в мяч на улице.

Яркое и неровное освещение в комнате может вызвать блики на экране. Принимайте меры в связи с этой информацией.

Запрещается много играть в компьютерные игры и видеоигры, особенно ночью.

Если отметь этот ответ, как лучший

1.

var
i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
 for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
 for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.

2.
var
x,i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
 for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
 for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
 for i:=5 to 10 do x:=A[i]*x;
write(x:5); 
end.