Пожалуйста решите 2 задачу !!!

с:= 0 for i := 1 to 9 do if A[1] (7) < A[0] (4) then begin c = 0 end;