Помогите пожалуйста срочно, даю 20 баллов ​

Question

Помогите пожалуйста срочно, даю 20 баллов ​

---

Answer 1

Ответ:

begin varn: readinteger (Введите число N) for vari:= 1 to ndo writelnli end