Оператор цикла “FOR”

[oxxxy]

Доброго времени суток! Помогите составить код программы
Язык Pascal
(требуется составить программу, использующую операторы цикла FOR для вычисления некоторой величины).

Дано натуральное n. Составить программу, вычисляющую : image040.gif

[AlexDark]

И в чем сложность в "составлении" кода? )) Язык то хоть какой?

[oxxxy]

Язык Pascal , сколько раз пробывал всё время ошибку выдаёт, что чего то не хватает

[ACE Valery]

ну так выложите сюда свои пробы

[oxxxy]

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;
  VAR N,I:INTEGER;
  S:REAL
begin

  WRITELN(‘vvedite n’);
 READLN(N);
  S:=0;
  N:=1;
  end;
FOR I:=1 
 DO BEGIN
   S:= S*(cos 1+cos n)/(sin 1+sin n);
  END;
  WRITELN('S=', S:15:5);
end.

[VIK_aka_TOR]

как то так... переводил радианы в углы ещё... угол * пи / 180

program Project2;
VAR N,I,j:INTEGER;
S,C, rez:REAL;
begin
WRITELN('vvedite n');
  READLN(N);
  rez:=1;
FOR I:=1 to n DO 
   c := 0;
   s := 0;
   for j:=1 to i do
    begin
      c := c + cos( j * pi / 180);// высчитываем cos(1) +cos(2) +...
      s := s + sin( j * pi / 180);// знаменатель (sin(1) + ...)
    end;
  rez:= rez * c/s;
WRITELN('S=', S:15:5);
end.

подучите написание оператора цикла...
и на будущее... оформляйте код при помощи #...