ПОМОГИТЕ ПОЖАЛУЙСТА В PASCAL ТОК ПОСЛЕДНИЕ ДВЕ ЗАДАЧИ ПРОШУУУУУ

Question

ПОМОГИТЕ ПОЖАЛУЙСТА В PASCAL ТОК ПОСЛЕДНИЕ ДВЕ ЗАДАЧИ ПРОШУУУУУ

---

Answer 1

Var i,n:integer;
sum: real;
begin 
readln(N);
sum := 10;
for i:=1 to n do
     sum := sum * 1.1;
writeln(sum);
end.