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

Спасибо, это задача Г

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