Напишите пожалуйста вторую программу в паскале(справа). Даю 100 баллов. Пожалуйста!!!!!!!!!!

Ответ:Pascal

1 program lab;

2 var

3 s:real;

4 i,n:integer;

5 begin

6 writeln('введите кол-во лет и сумму');

7 readln(n,s);

8 for i:=1 to n do

9 s:=s+s*0.03;

10 writeln(s);

11 end.

Объяснение: примерно так.