1составьте программу ,вычисляющую сумму кубов первых n натуральных чисел
2Туристы в 1-ый день прошли 7км.В каждый следующий день они проходили на 1.5 км > .Составь программу ,вычисляющую сколько километров они пройдут за n дней.
Помогите срочно ,пожалуйста )))

1
const
n = 100;
var
a: array[1..n] of word;
i, m: byte;
sum: word;
begin
write(Kol-vo chisel: );
readln(m);
sum:=0;
for i:=1 to m do   
begin   
a[i] := i;   
write(a[i]:4);   
sum:=sum + sqr(a[i])*a[i];   
end;   
writeln;   
writeln(Sum = , sum:4);  
readln;
end.

2
const
n = 100;
var
a: array[1..n] of word;
i, dn: byte;
km: real;
begin
write(Kol-vo dney: );
readln(dn);
km:=7;
for i:=2 to dn do   
km:=km+(km+1.5);
writeln;
writeln(Turisty proshli , km:4:1, km);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.