Помогите!!! Зависит полугодовая оценка по информатике!
Нужно: 

1). Программа pascal turbo

Извини, тут вопрос, я что-то забыл. Exp - это возведение в куб?

exp - это экспонента.

a^x = exp(x*ln(a))

Это формула для нахождения любой степени любого положительного числа.

Вытекает из свойств логарифмов.

uses Crt;const  p=5; { ежегодный процент }  n100=100; { количество лет }  n200=200; { количество лет }  s0=1000; {начальная сумма }  soz=100000; { на постройку общественных зданий }  sb=1061000; { оставить жителям Бостона }var  s,s100,s200:longint;  k100,k200:real;begin  ClrScr;  k100:=exp(n100*ln(1+p/100)); {процент за 100 лет}  k200:=exp(n200*ln(1+p/100)); {процент за 200 лет}  s100:=Trunc(s0*k100);  Writeln('Через первые 100 лет сумма составит ',s100);  Writeln('На постройку общественных зданий: ',soz);  s:=s100-soz;  Writeln('Остаток: ',s);  s100:=Trunc(s*k100);  Writeln('Через вторые 100 лет сумма составит ',s100);  Writeln('Оставить бостонским жителям: ',sb);  Writeln('Правлению Массачусетской общины: ',s100-sb);  Writeln('*** За ',n200,' лет, если бы сумм не снимали: ',    Trunc(s0*k200));  Readkey;end.  Тестовое решение:Через первые 100 лет сумма составит 131501На постройку общественных зданий: 100000Остаток: 31501Через вторые 100 лет сумма составит 4142421Оставить бостонским жителям: 1061000Правлению Массачусетской общины: 3081421*** За 200 лет, если бы сумм не снимали: 17292580