Question

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

Answer 1

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