Ответ:

program z;

var i: integer;

m:array[1..10]of integer;

begin

for i:=1 to 10 do

begin

m[i]:=i;

write(m[i],' ')

end

end.

Объяснение:

Натуральные числа - числа, использующиеся при счёте предметов (1, 2, 3 и т.д.)