Сконструировать линейный массив из 9 частей, значения которых вводится с клавиатуры.

program raf105;

const

 n = 9;

var

 a: array[1..n] of integer;

 i: integer;

begin

 writeln('Заполните массив');

 for i:=1 to n do

 begin

   readln(a[i]);

   if a[i] gt; 0

     then a[i]:= 1

     else a[i]:= 0;

 end;

 write('Новый массив: ');

 for i:=1 to n do

   write(a[i],' ');

end.

PascalABC 3.4.2