Задание на 30 ноября

1)Повторить разобранную на уроке Задача №30

Program  deng30;

var  i  :integer;

s ,P :real;

begin

 S:=200000;

writeln('введите денежный процент P = ');

readln(P);

for  i:=1626  to  2012  do

S:= S+S/100*P;

writeln('s = ', s:15:0);

end.

2)Заполнить рабочая тетрадь стр 75

3)Сделать №32 и №33