Помогите с 4 заданием)

Question

Помогите с 4 заданием)

---

Answer 1

Var  i:integer;begin for i:=1 to 10 do begin  writeln(i); end; end.