Помогите пожалуйста написать программы:
1)Найти произведение чисел от 6.7 до 7.8 с шагом 0.4
2)Сравнить, что больше сумма ряда 8.5, 8.6,...40.9 или произведение чисел от 1 до 3 с шагом 0.25
3)Вычислить сумму ряда: 0.6, 0.7, 0.8, 0.9.

// PascalABC.NET 3.0, сборка 1111begin  var p:=1.0;  var a:=6.7;  repeat    p*=a; a+=0.4  until a>7.8;  Writeln(p)end.// PascalABC.NET 3.0, сборка 1111begin  var s:=0.0;  var p:=1.0;  var a:=8.5;  repeat    s+=a; a+=0.1  until a>40.9;  a:=1;  repeat    p*=a; a+=0.25  until a>3;  if s>p then Writeln('Сумма больше произведения')  else    if p>s then Writeln('Произведение больше суммы')    else Writeln('Сумма и произведение равны')end.begin  Writeln(0.6+0.7+0.8+0.9)end.