Выручайте зачёт!!! (borland turbo pascal)

[kutuzov23]

люди добрые помогите, я студент строительного факултета, первый раз в этом семестре вижу это чудо (turbo pascal), скоро всё закончиться, но для этого требуеться написать программу и получить зачёт. честное слово, в паскале я не понимаю вообще ничего...
условие задания:
фирма потребляет 2000 кубических метров бетона в месяц, каждый полгода потребление вырастает на +10% от предыдущего полгода...
цена за кубический метр 50 лат, каждые пол года цена выростает на +20% от предыдущего пол года...
надо решить сколько потратят бетона за 3 года и сколько это будет стоить?

[Mad_Cat]

s:=0;ss:=0;
p:=50;
v:=2000;
for i:=1 to 6 do
begin
s:=s+p*v;
ss:=ss+v;
v:=v*1.1;
p:=p*1.2;
end;

[kutuzov23]

очень благодарен вам за помощь