Программирование алгоритмов итерационной циклической структуры

[ACdm1123]

Напишите программу для решения задачи на паскаль

[BDA]

"Напишите программу для решения задачи" - Пишите.
Какие конкретно вопросы возникли?

[ACdm1123]

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

"Напишите программу для решения задачи" - Пишите.
Какие конкретно вопросы возникли?

Решить нужно на Паскале.
Какие конкретно вопросы возникли?-Если несложно нарисуйте хотя бы Блок схему без неё не могу составить программу.

[BDA]

Блок-схему не нарисую (не рисовал уже года 4 и пока не собираюсь начинать ).
Алгоритм:

S = 0
A = 2
N = 1
пока A меньше 2000 делаем (
  S = S + 1/A
  N = N + 1
  A = 1
  цикл по i от N + 1 до 2N делаем (
    A = A * i
  )
)
Печатаем S

Вроде нигде не ошибся (проверьте потом счет).

UPD
Пожалуйста

[ACdm1123]

Большое спасибо!

[taranykhin]

Помогите пожалуйста написать программу.
Буду очень признателен

[s-andriano]

Так ведь уже помогли!
Чего ж Вам еще надо?

Алгоритм изложен в сообщении №4, нужно только подставить свою функцию и точность вычисления.

[taranykhin]

Я конечно извиняюсь, но можно рассмотреть второй вариант ?
так как в этом деле я дуб.
а что мне надо в задании написано.
спасибо!=)

[taranykhin]

ну прост очень надо!
кому не сложно помогите с программой