Где в этой программе фрагмент ввода массива с клавиатуры?
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.