код в паскале

[mishammm]

Вот сама задачка: (+ на картинке)
Разработать алгоритм и записать программу вычисления значения суммы и произведения.
*********************************** ** Требования к программе:
- Входные данные (начальное и конечное значение индексной переменной в сумме или произведения) ввести стандартной процедурой введения;
- Вывести вычисленные значения суммы и произведения.

Сам код:

program laba5_1;
var
  k,n, y,p:real;
 l, i:integer;
  begin
  Writeln('Vvedi k');
  Readln(k);
  Writeln('Vvedi n');
  Readln(n);
  y:=0;
  p:=-1;
  for i:=k to n do
  begin
  y:y+(i+2)/(i+3) * (i+6);
  end;
  writeln(y:3:2);
  for l:=8 to 17 do
  begin
  p:=p*                                                                                                                                                                                                                                                                                                               (sqr(l) - 2) / (l+3);
  writeln(p:3:2);
  writeln(l);
  end;
  writeln('y=',y:3:2);
  writeln('p=',p:3:2);
  end.

Выбивает ошибку на строке

 i:=k

[BDA]

k, n: integer;
...
for i := k to n do

Не считая других ошибок.
Кстати, компилятор же сообщает текст ошибки. Вы гораздо быстрее сможете исправлять ошибки, если будете читать этот текст.

[mishammm]

теперь на формулах пишет строка слишком длинная (

[BDA]

y := y + (i + 2) / ((i + 3) * (i + 6));

У Вас слишком много опечаток, просмотрите внимательно весь код.

[mishammm]

хоршо я стёр y+ то самое вроде

[type_Oleg]

У вас i - целый тип, а k и n - действительные.
Поэтому и нельзя так присваивать, как у вас в for i:= k to n

[mishammm]

Сообщение от type_Oleg

У вас i - целый тип, а k и n - действительные.
Поэтому и нельзя так присваивать, как у вас в for i:= k to n

я уже поправил ту строку у меня проблема другая: пишет что строка слишком длинная почему вроде же норм на формулах

[BDA]

А что такое p:=p*? Как компилятору это понять?

[mishammm]

я не дописал там p:=(sqr(l) - 2) / (l+3) а компилятор пишет длинная строка

[Вадим Мошев]

А зачем вы сделали столько пустого пространства:

  p:=p*                                                                                                                                                                                                                                                                                                               (sqr(l) - 2) / (l+3);

Можно же написать:

p:=p*(sqr(l) - 2) / (l+3);