Помогите написать программы в Pascal ABC
1.найти сумму s=3/1+6/14+9/20.......+99/200
2.среди 3-х значных чисел найти и вывести на экран числа, которые равны сумме кубов своих цифр

1.var i:integer; s:real;begins:=3;for i:=2 to 33 do s:=s+3*i/(2*3*i+2);writeln('s = ',s:6:4);end.Результат:s = 18.51612.var i1,i2,i3:integer;beginfor i1:=1 to 9 do for i2:=0 to 9 do  for i3:=0 to 9 do   if i1*i1*i1+i2*i2*i2+i3*i3*i3=i1*100+i2*10+i3    then write(i1*100+i2*10+i3,' ');end.Результат:153 370 371 407