1)Как можно обрисовать на Паскале 1)Как можно обрисовать на Паскале массив,в

1)program zz1;
var i:integer;
m:array[1900..1999] of integer; // описываем массив целого типа, каждый элемент которого будет являться каждым годом XX века
begin
for i:=1900 to 1999 do
begin
write( введите численности народонаселенья Москвы к концу ,i,-го года );
read(m[i]);
end;
end.
2)program zz1;
var i:integer;
m:array[1..31] of integer; // обрисовываем массив целого типа, каждый элемент которого будет являться весом котёнка в течение месяца
begin
for i:=1 to 31 do
begin
write( введите вес котенка ,i,-го мая );
read(m[i]);
end;
end.