1 составьте программу, вычисляющую сумму кубов первых n натуральных чисел…

1constn=100; vara: array[1… n] of word; i, m: byte; sum: word; beginwrite ('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.2constn=100; vara: array[1… n] of word; i, dn: byte; km: real; beginwrite ('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.