Помогите,пожалуйста.

Question

Помогите,пожалуйста.

---

Answer 1

1)var x:integer;
begin 
writeln ('Artem');
end.
2) for n:=1 to 9 do