Вопрос Помогите пожалуйста составить программу в Turbo Pascal

[pavelbabinskii]

Кто разбирается в информатике, помогите пожалуйста составить программу в турбо паскале по блок-схеме.
//otvet.imgsmail.ru/download/207457415_57a36249d729a03acebf3d3878b79e75_800.jpg