{
PROGRAMMED BY   : MOHAMMAD ALJADA
DOWNLOADED FROM : WWW.GEOCITIES.COM/MOHJADA
PROGRAM         : Input Array Items In Shape Of Array
}


uses WinCrt;


var i,j,y:integer;
    a:array[1..5,1..4] of integer;

begin

   for i:=1 to 5 do
   begin
   y:=i*2;

      for j:=1 to 4 do
      begin
      gotoxy(j*2,y);
      read(a[i,j]);
      end;
   end;


end.