Помогите написать кусок программы (паскаль) ПО этой блок схеме.

Question

Помогите написать кусок программы (паскаль) ПО этой блок схеме.

---

Answer 1

M:=a[1];
for i:=1 to n do
 if mwriteln(m);