Var A: Array[1..150,1..100] OF integer;
i,j: integer;
FOR i:=1 to 150 DO FOR j:=1 to 100 DO
A[i,j]:=0;